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Lines 660 and 670 force you to save your program immediately. 
As you have stored all of your questions and answers in arrays, 
they will be cleared from memory if you use RUN. If you wish to re- 
run the program you must use GO TO 29, as this leaves your 
questions and answers intact. You might like to write a few lines at 
the end of the main program to give the choice of running the 
program again or not. 

Returning to the start of the program, lines 20 and 30 initialise 
variables; s is the score, and x is the number of questions which 
have still to be asked; b% is used to provide the hyphens in the 
hints, and e$ is used to clear single lines on the screen. 

Line 40 flashes all of the answers onto the screen. This is a 
helpful memory-jogger for short sets of questions, but you should 
delete it when the number of questions is large. 

The array y (dimensioned in line 520) stores the question 
numbers in a way that prevents annoying repetitions when the 
program is run. Line 30 initialises the array so that y (1) = 1, y (2) = 
and so on. If there were only four questions in the test, then line 60 
will give z a value between 1 and 4. Suppose that z = 2: the 
question number q is made equal to y(2), which is 2. Line 70 
decreases x, the number of questions left. Line 80 eliminates 
question numbers which have been used: 


Before line 80 After line 80 
Vili y(1) = 1 
y(2) = 2 y(2) = 
y(3) =3 y(3) = 
y(4) = 4 y(4)=4 


You get two points if you answer the question correctly at the 
first attempt, and one point at the second attempt. Line 110 uses 
the answer length I(q) in a string slicer to remove the spaces which 
pad out the answer word when it is stored in array aS. You have to 
remove these spaces because 


” 


“Constantinople” <> “Constantinople 


The answer length is again used in line 330 to slice the correct 
number of hyphens from b$ to make up the hint “C------------- 

You can use this program to reinforce your childrens’ school 
work in many subjects. If you feed French vocabulary, chemistry 
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Foreword 


A sheet of paper may carry the jottings of an idiot or a sonnet by 
Shakespeare, but by itself it is nothing. In the same way a 
computer, however powerful it may be, is only what the 
programmer makes it, and therefore the skill. and art of 
programming has risen to great importance. Hence this book, 
which takes over where the manual provided with the Spectrum 
leaves off. No manual can say it all and ours can only give the basics 
of programming. This book, by means of program examples, 
teaches skills of programming which, without its aid, might take 
years to acquire. It will be of great benefit both to the reader who 
has recently taken up programming and to the more experienced 
programmer who wishes to increase his skills. 


Clive Sinclair 


8 


Acknowledgements 


A number of people helped me write this book, and | would like to 
thank them most sincerely for lending their expertise. This has 
enabled me to make the book far more comprehensive than it 
would have been if | had relied only on my own resources. Several 
books, which are mentioned at the end of the chapters they apply 
to, also proved useful. They are listed as a guide to further reading if 
you wish to explore the subject matter of the chapter in more 
depth. Those who contributed to specific sections of the book are: 
Mike Salem, managing director of Hilderbay, one of the leading 
firms creating and servicing ZX business software, who helped 
with the introduction to the business chapter, and the ‘jargon’ 
section of the appendices; Jeff Warren, an experienced teacher 
and head of the educational software company CALPAC Computer 
Software, who provided the core of the text in the education 
chapter and five of the programs; Tim Rogers, a student from 
Richmond, who shares his enthusiasm for computer games 
writing in the games chapter, and who wrote NIGHTFALL, JACK- 
MAN, METEORS and BREAKOUT; Jeremy Ruston, another 
student, who has three books to his credit (Pascal for Human 
Beings, The BBC Micro Revealed, and The Book of Listings, a BBC 
Publications book which he co-wrote with me) and who 
contributed the chapter on three-dimensional graphics; Dr Tim 
Langdell, an experienced programmer from West Dulwich, who 
writes regularly for Your Computer and ZX Computing magazines, 
and who is currently conducting an Open University research 
project into machine intelligence, who wrote the sound and colour 
chapters; and James Walsh, a student from Loughton who is 
currently writing two books (one on building a computer from 
scratch, and the other a detailed guide to using machine code on 
the Spectrum) and who answers readers’ questions for the 
magazine Personal Computer World and reviews software for my 
magazine ZX Computing, who contributed the chapter on machine 
code. Finally, | must thank Clive Sinclair, not only for inventing the 
Spectrum and its predecessors, without which | and hundreds of 
thousands of others could never have afforded to enter the 
computer world, but also for his encouragement and assistance. 


Introduction 


Production of the Oxford University Press dictionary took over 70 
years, because the compilers wanted to include every word in the 
English language, and every meaning of every word. | felt, when 
surveying the ground this book could cover, that writing The ZX 
Spectrum Explored could also take 70 years, if every possibility of 
the computer was catered for. Therefore, | selected what seemed 
to me to be the most important elements of programming on the 
Spectrum, and the areas in which you would be most likely to want 
to apply your computer, and drew up a book outline based on those 
conclusions. 

Many of my computer books include a statement along the lines 
of ‘This is a doing book, not a reading one’, by which | mean the 
book is to be regarded as a tool to direct hands-on computer use, 
rather than one to be read as you might read a novel. The same 
admonition applies to this book. While you may well get some 
benefit from just reading through it, the real value of the book will 
only be realised when you read it with your Spectrum turned on, 
and when you enter each of the routines and programs when you 
come to them in the text. 

Do not feel that there is any pressure on you to read the whole 
book from start to finish in the order in which it is presented. There 
may be things you already know, or at this stage have no desire to 
know. By all means, bypass these chapters the first time you work 
through the book, and then perhaps you can come back to them 
later. 

Whatever you do, don’t regard The ZX Spectrum Explored as a 
textbook. Textbooks seem to me to be pervaded by a sour air 
which renders their contents joyless, and that is the last thing | 
would want this book to be. It is a guidebook; a signpost; an 
indicator towards areas of computer use where real adventures lie. 
Please regard it as such. If you do, the book should help you get a 
great deal of pleasure from your Spectrum. 

In The ZX Spectrum Explored, we start by looking at the 
fundamentals of programming, then go on to ways of adding colour 
and sound to your programs, using the relevant commands to get 
the Spectrum to produce effects which are more interesting than 
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you may have thought possible. 

Using the Spectrum for business, and then in education, is 
covered next — with each chapter supplied with a number of fully- 
developed programs — and then we have a major chapter on 
games. This chapter includes programs for several ready-to-run 
games, and should give you a number of ideas to help you create 
your own games. The production of user-defined graphics is also 
discussed in the games chapter. 

An even more spectacular use of the Spectrum's high resolution 
graphics is outlined in the next chapter for the production of three- 
dimensional graphics. 

Finally, we look at the use of machine code on the Spectrum, and 
Suggest ways of further developing your programming skills. In the 
appendices you'll find a brief history of computers, an explanation 
of some of the jargon associated with them, and an outline of the 
Spectrum's specifications. 

All in all, | hope we've managed to produce for you a 
comprehensive guide to your ZX Spectrum which will help you 
make the most of your computer in the coming months. 


Good programming, 
Tim Hartnell, 
London, September, 1982 


Programming in BASIC 


BASIC is the world’s most popular programming language — 
because it is the easiest one to learn. Computer languages are 
spoken of in ‘levels’; a high level language is one which is close to 
English, a low level one is closer to the weird patterns of ones and 
zeros a computer understands. 

BASIC is a high level language. Even if you have no experience of 
programming at this point, you'll be pleased to learn you already 
know quite a bit of BASIC. 

Words like PRINT, STOP and AND mean just about the same 
thing in BASIC as they do in English. So does IF and THEN and OR. | 
hope you can see already that programming is simpler than 
perhaps you had thought it would be. 

Essentially, when you write a program, you give the Spectrum a 
series of instructions to follow. The Spectrum, like all computers 
built to date, has quite extraordinary calculating and decision- 
making abilities, but absolutely no imagination. If you tell the 
computer to do something, it will do it. If you leave out part of the 
instructions it will attempt to carry out the rest without realising 
that something has been left out. 

Imagine you had a robot servant, and you wanted it to draw a 
bath. GO TO BATH might be the first instruction in its program. IF 
BATH IS EMPTY THEN TURN ON TAP. IF BATH IS FULL THEN 
TURN TAP OFF. The robot would happily trundle to the bathroom, 
dip its electronic hand into the bath and discover it was empty, and 
then turn the tap on. It would stand there forever, waiting for the 
water level to reach a point where it would be detected, so the tap 
could be turned off. But because you forgot to include an 
instruction like CHECK IF PLUG IN PLUGHOLE and IF PLUG NOT 
IN PLUGHOLE THEN PUT PLUG IN PLUGHOLE, the robot would 
not think to do this. 

This is exactly how your Spectrum works, by following explicit 
instructions from you. And believe it or not, with a few 
reservations, your Spectrum could more or less follow the 
instructions or program you gave the robot... because those 
instructions contain a number of words of the BASIC programming 
language. 
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Here is a simple program for the Spectrum which | am sure you 
can understand, even without any training in programming 
languages. 


LETA = 20 
LETB=A+A 
IF B = 40 THEN PRINT “B EQUALS 40” 


This is straightforward English, yet it is also BASIC. The first line 
of the program (LET A = 20) is simple, as is the second one (LET 
B =A +A). The third line looks remarkably similar to one of the 
earlier robot instructions such as IF BATH IS EMPTY THEN TURN 
ON TAP; IF B = 40 THEN PRINT “B EQUALS 40”. You could 
almost type this program into your Spectrum, and it would work, 
with the Spectrum printing up instantly B EQUALS 40. 

The only thing these three lines need to turn them into a program 
is anumber before each line. The following is a program which the 
Spectrum would act on. 


10 LETA=20 
20 LETB=A+A 
30 IF B=40THEN PRINT “B EQUALS 40” 


The line numbers can be any numbers you choose (between 1 
and 9999). The computer automatically sorts them into order. We 
tend to number programs in steps of 10 because it leaves room 
between the lines if we decide to add something else in later. 

So you see, already you've had some experience of the BASIC 
programming words LET, IF... THEN and PRINT. The equals sign 
and the plus sign you will know from ordinary arithmetic. In many 
cases, they behave in BASIC just like they do in ordinary sums. 

Before we actually plug in the Spectrum and do some 
programming, I'd like to introduce you to another word in BASIC 
which, as you'll discover ina moment, you already know. In fact the 
word is really two words — GO and TO. 

In BASIC they always come together as GO TO, and are available 
from a single key on the Spectrum (the G key). You'll recall we had 
our robot start the bath-drawing program by saying GO TO BATH. 
In the world of computer programming, we say GO TO a line 
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number. We could add a final line, 40, to our three line program 
above which reads: 


40 GOTO 30 


This would mean that the computer would execute line 30, and 
‘print out B EQUALS 40 then would move on, in sequence, to line 
40, where it would find the instruction GO TO 30. Without 
questioning why you have told it to do this, the computer would 
follow instructions, and GO TO line 30, where it would find the 
instruction to print out B EQUALS 40 which it would do. It would 
then proceed to line 40 where once again it would strike the 
instruction GO TO 30... . and of course it would do so, until the 
end of time, or until the screen was full of the words BEQUALS 49. 

We can proceed no further without having the Spectrum turned 
on, so get out your computer and — following the instructions given 
in the manual — plug it into the power supply and the television set. 

The keyboard on the Spectrum looks forbidding when you first 
tackle it, all those funny words like MERGE and VERIFY, and the 
mathematical terms including SIN and COS which you had hoped 
you'd left behind for ever at school. Don’t worry. Once you know 
your way around the keyboard, you'll find it remarkably simple to 
control, and in the words of the advertisement for the Spectrum's 
predecessor ‘within days you'll be talking to it like an old friend’. 


The Keyboard 

Two of the most important parts of the keyboard are the shift keys. 
They are on the bottom row, the CAPS SHIFT (in white) in the 
bottom left hand corner, and SYMBOL SHIFT (in red) second from 
the right in the bottom right hand corner. These keys determine 
what you are going to get when you press the other keys, with their 
bewildering array of words and symbols. 

I'll assume from now on that your computer is turned on. Press 
any of the white alphabet keys, and you'll see the word written on 
the key (such as LOAD, LIST or PRINT) appear. This is a ‘keyword’. 
One of the ways the Spectrum makes the best use of its memory, 
and a feature which makes it very easy to program, is the keyword 
system. Simply pressing a key produces the whole word from that 
key. On most other computers you have to type in a word like LIST, 
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DIM or FOR in full. Hold down the CAPS SHIFT key, and press the 
DELETE key (top right hand corner) until everything you've typed in 
so far has been erased. 

Now, press the P key, and the word PRINT will appear. Then, 
press any of the number keys, so you have something like PRINT 
62735 at the bottom of the screen. Now press the key marked 
ENTER (right hand side, one up from the bottom). The screen will 
clear and the number you've requested will appear at the top of the 
screen. The computer has obeyed your instruction to PRINT a 
number. The Spectrum generally waits until you have pressed 
ENTER before actually doing anything. 

We'll enter a simple program, to show the keyword system in 
use. Type in the following, after holding down the CAPS SHIFT and 
pressing the 2 key (CAPS LOCK) to get capital letters in the 
program. 


10 INPUT (just press the | key) A (now press ENTER to 
show you've finished the program line) 

20 PRINT A (press ENTER) 

30 GOTO 10 (press ENTER) 


Note that the word PRINT comes from the P key, and GO TO 
from the G key. The spaces in the program listing are added 
automatically. Once you have this in your computer, we can make 
it work, by pressing the R key, which will make the word RUN 
appear, and then pressing ENTER. A flashing cursor will appear at 
the bottom of the screen, showing the computer is waiting for a 
number. Enter any number, then press ENTER. You'll see your 
number appear at the top of the screen. You know from the 
discussion of GO TO BATH we had earlier, that the final line of the 
program (line 30) sends action back to line 10, so the computer will 
continue to execute this program loop for ever, or until we stop it. 
You can stop this program by entering any letter except A when the 
Spectrum is waiting for a number. The computer will stop, printing 
an error message at the bottom of the screen. 

Once you've stopped the program, touch the A key, press 
ENTER, and the screen will go black, and then clear, with the 
copyright notice at the bottom of the screen. The keyword 
available from the A key is NEW, which wipes everything in the 
computer's memory, sO you must use it with care. 
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So, you've learned that the white keywords are obtained by 
pressing the key required after you have entered a line number. 
Let's look at the words in red on the keys. Hold down the SYMBOL 
SHIFT key, and then press the Y key. You'll see the word AND 
appear. Still holding down the SYMBOL SHIFT, press the G, and 
THEN will appear. So red words on the keys, and the symbols like 
+ 'and £, are obtained by holding down the SYMBOL SHIFT, then 
pressing the required key. 

You get the green words above the keys by pressing down both 
shift keys together, then letting them go, and touching the key 
required. Try it now. Press down the CAPS SHIFT and the 
SYMBOL SHIFT keys together, let them go, then touch the A key. 
The word READ should appear. 

_ Itisa little more difficult to get the words in red under the keys. 
Press down both shift keys together, then release the CAPS 
SHIFT, but do not let go of the SYMBOL SHIFT. Then press the X 
key. The word INK should appear. You may have to practice this a 
little to ensure you get the word INK (or BEEP, PAPER, FLASH or 
BRIGHT) every time. 

Read through this whole section again, doing each of the 
exercises, until you're sure you understand it. Don’t worry if it 
seems to take a long time at present. You'll be pleasantly surprised 
at how quickly you will learn the keyboard system. At the end of 
this introductory chapter we have a program designed to teach you. 
where the alphabetical keys on the Spectrum are, to encourage 
‘touch typing’, but first | want to introduce you to the first real 
program in this book. It may take you a while to type in, but please 
persevere. Once you've entered the whole of this program into 
your computer, press RUN and play the game aginst the Spectrum. 

The program plays ROCK, SCISSORS and PAPER, a computer 
version of the human game in which two players hide their hands 
behind their backs, and bring out a hand making a symbol for rock (a 
closed fist) scissors (two fingers pointing) or paper (open hand). 
Rock beats scissors (because a rock can blunt scissors) scissors 
beat paper (because scissors can cut paper) and paper beats rock 
(because paper can wrap a rock). You enter your choice of ROCK, 
SCISSORS or PAPER in this program by entering the numbers 1, 2 
or 3. The choice they represent is shown at the top of the screen. 

Before you enter the program, the following comments may 
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help. You get the little copyright symbol in line 20 by pressing down 
both shift keys, then holding down the SYMBOL SHIFT and 
pressing the P key. The equals sign (first used in line 30) is from the 
L key. You get it by holding down SYMBOL SHIFT, then pressing L. 
Remember to press ENTER after each program line is written, to 
get it to move from the bottom of the screen into the program 
proper at the top. If the line refuses to move up, a flashing question 
mark will appear somewhere in the line. This is the computer's sign 
to you that you have made a mistake in the line. Look carefully at 
the point where the question mark is flashing to discover your 
mistake. 

The colon (:) after the word CLS (which stands for Clear the 
Screen) in line 60 is found on the Z key. Hold down SYMBOL SHIFT 
and press Z to get it. Line 70 has a single apostrophe (') after the 
word PRINT, before the opening quote marks (“). You'll find the 
single apostrophe on the 7 key, and it is obtained by holding down 
the SYMBOL SHIFT, and pressing the 7. The double quotes come 
from the P key. 

You need to exercise a little care to get line 170 into your 
computer correctly. After 170 LET C=, you need the word INT 
which is not typed in letter by letter, but is obtained from the R key. 
Press both shift keys, release them, then press R and INT will 
appear. The open bracket is on the 8 key (hold down SYMBOL 
SHIFT while pressing the 8 key) and the word RND is available from 
the T key. Press both shift keys at once, release them, then press 
T. The asterisk (*), which stands for multiply in BASIC, comes from 
the B key, and is obtained by holding down SYMBOL SHIFT as you 
press B. 

Do not try to spell out words like AND, OR, THEN and TO, but 
find them on the keys. These words are obtained by holding down 
SYMBOL SHIFT, then pressing the relevant key. 

Now, enter the program, then return to the book. 
18 REH AOCK, SCISSORS, PRPER 
28 REM © HARTNELL, 12382 
S@ LET CoOonrp=a@ 
4@ LET Hiin=a 
5@ FOR A=i To 32a 
6@ CLS : PRINT “ROUND NUNRER * 
7@ PRINT °"432 - RoOcK* 
6@ PRINT “2 - Scrssaars" 
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9@ PRINT "3 _- PAPER” Z 
4a@ PRINT ‘"ENTER i, 2 OR 3 


B 

Be PRINT “"YOU PICKED "3 
ise TF 8=1 THEN PRINT “ROCK. 
44@ IF B=2 THEN PRINT “SCISSORS 


45@ IF B=2 THEN PRINT “PAPER” 
468 FPAUSE 58 “4,0 

7@ LET Cota. feoceo 

4 Pe] PRINT 2 28 ‘oa ard . : 
te IF C=3 THEN PRINT “ROCK" = 
2@e@ IF C=$2 THEN PRINT “ScTssorRs 


21@ IF C=3 THEN PRINT “PAPER" 
250 iF B-C THEN PRINT “"IT°S A 


u Lee ET 

260 PRINT “"“SCORE'' @“HE> °; COMP 
TRB 18; "YQU> “7; HUN 

272 so 


26a NEXT 

290 IF HUM=COMP THEN PRINT °<*"T 
HAT GANE WAS 8 DRAM” . 
S@@ IF HUM<COMP THEN PRINT °°" 
WON THAT _GANE! 


Sie IF COMP <HUM THEN SRINT “oy 
Ou WON THAT GANE: * 


This is part of a game in progress: 


ROUND NUMBER 7 

B _ SetSsors 

3 — PAPER 

ENTER 1. 2 aR 3 
YOU PICKED PAPER 
I PICKED ScIssors 
I WIN! 

SCORE. 

ME> 2 Ydu> 3 
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10 


20 


30 


40 


50 


60 


I'll go through the program line by line, to try and explain 
what is happening in each line. 

This line starts with REM, which stands for REMark. REM 
statements are included in programs only for the benefit 
of humans reading the program listing. The computer 
ignores everything that appears in a line after the word 
REM. 


This is another REM statement, also ignored by the 
computer. 


LET means much the same in BASIC as it does in English. 
The word COMP (short for computer) is called a variable, 
which is any combination of letters and numbers (starting 
with a /etter) which is assigned (or made equal to) a 
numerical value. COMP holds the computer's score, and it 
is set equal to zero at the start of the game. 


This line does the same for a variable called HUM, for the 
human’s score. 


FOR... This is the start of what is called a ‘FOR/NEXT 
loop’. The computer generally goes through such a loop 
the number of times indicated by the last number in the 
FOR statement. Look down to line 280 (NEXT A). This is 
the end of the FOR/NEXT loop. In this program, the 
computer runs the gauntlet from line 50 to line 280 ten 
times, carrying out all the instructions within the program 
as it does so. 


CLS, as mentioned before, Clears the Screen. The colon (:) 
allows you to add a second statement to the line. PRINT 
does just that, printing the words in quote marks following 
the command PRINT. As well as that, the computer prints 
the value of A. The first time through the FOR/NEXT loop A 
is equal to one, the second time to two, and so on until A 
equals ten the last time through the loop. So PRINT 
“ROUND NUMBER ":A produces ROUND NUMBER 4, 
or whatever number A is equal to, on the screen. 
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70-20 These three lines print the numbers 1 to 3, and the word 


100 


110 


120 


130 
150 


160 


170 


(such as ROCK) they represent. Note the apostrophe 
(from the 7 key) before the opening quotes in line 70. This 
moves the print position down a line, so that there is a 
blank line on the screen between the words ROUND 
NUMBER 4 and 1 — ROCK. 


The apostrophe is used again to put a blank line before 
ENTER 1, 2 OR 3 is printed. 


The INPUT command waits until a number is entered by 
the user. In this case, the number you enter is assigned to 
the variable B. 


This prints YOU PICKED. 


These three lines interpret the number you've entered 
(1, 2 or 3—assigned to B) and decide which word (ROCK, 
SCISSORS or PAPER) this stands for, and prints it up on 
the screen. 


PAUSE. This puts a short delay into the program, to make 
it look as if the computer is ‘thinking’. The number after 
the word PAUSE is in fiftieths of a second, (sixtieths in the 
US), so PAUSE 50 is a delay of one second. PAUSE @ will 
wait forever, or until any key is pressed. 


This is a very interesting line, in which the computer 
generates a random number. Random numbers are very 
useful in games programs. The RND function (both shift 
keys, then press T) generates a random number between 
zero and one. You can show this by typing in PRINT RND, 
then pressing ENTER. You'll get a number between one 
and zero. Line 170 turns it into a whole number in the 
range one to three. If the 3 which follows the asterisk 
within the brackets was changed to, say, a 10, then C 
would be set equal to a number chosen at random by the 
computer between one and ten. However, in this case we 
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180 


190 
-210 


220 


230 


240 


250 


260 


want the computer to choose 1, 2 or 3, so we multiply 
RND by three. 


This begins the statement to tell you what the computer 
has chosen. 


These lines change the 1, 2 or 3 which C has been set 
equal to into ROCK, SCISSORS or PAPER. 


The variable D is set equal to 260. This is so, at the end of 
lines 230 and 240 (GO TO D), the computer will GO TO line 
260. The Spectrum is quite happy to GO TO results of 
calculations, so you could (although it would serve no 
purpose) end lines 230 and 240 with GO TO 2*130 (two 
times 130) 


If Band C are the same number, the computer knows that 
it and you have chosen the same thing, so prints IT’S A 
DRAW, then GOes TO D (i.e. GOes TO 260) 


This complicated looking line determines if the com- 
binations of C and B result in a win for the computer. 
IF they do THEN the computer PRINTs| WIN and adds one 
to its score (LET COMP = COMP + 1). Although this 
statement looks a little odd when compared with normal 
arithmetic, it really means ‘make the variable named on 
the left hand side of the equals sign equal in value to the 
old value of the variable, plus one’. Don't worry if you don’t 
understand this right now because the reason for it will 
gradually become clear as you use lines like this more 
often. 


This checks the human win condition, and if it finds it, adds 
one to the human score (LET HUM = HUM + 1) 


This prints out the score. Notice that there is a single 


apostrophe before the opening quote marks, and two 
single apostrophes after the quotes which follow SCORE 
and before the quotes which precede ME. As you've no 
doubt seen from running the program, this puts two blank 
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lines in before the line starting ME is printed. The pointing 
arrow head, the ‘greater than’ symbol, which follows the 
words ME and YOU is obtained from the T key, when you 
press it while holding down the SYMBOL SHIFT key. 


270 This PAUSEs for two seconds so you can read the result of 
the round. 


280 NEXT A is the end of the FOR/NEXT loop which started in 
line 50. As explained earlier, this sends action all the way 
back to line 50, where the value of A is increased by one, 
and then the following lines are executed in order. 


290 If the value assigned to the variable HUM is the same as 
the value assigned to the variable COMP, then the 
Spectrum knows that the game is a draw, and prints up 
the message (after skipping two lines, using two single 
apostrophes) “THAT GAME WAS A DRAW". 


300 IF HUM is less than COMP, then the computer knows that 
you have won. 


310 IF COMPis less than HUM, then the computer knows that 
you have won. 


| hope this explanation does not seem too bewildering. | am 
trying to get across the fundamentals of programming the 
Spectrum in BASIC in the simplest possible way, and a lot of 
ground must be covered in a short time. 


Adding a little colour 

We'll be looking at ways of making the most of the Spectrum's 
colour capabilities (and sound) a little later in this book, but for now 
I'd like to introduce you to a few of the simplest uses of the colour 
commands, so yox' can see how well these can be used to enhance 
programs. A new version of the ROCK, SCISSORS, PAPER 
program, with colour commands added, follows. You can easily 


modify the program you now have by using the Spectrum's edit 
facilities. 
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1@ REN ROCK, SCISSOR 
5@ REM @ HARTNELL, 1 
S@ LET COMP=e 


UN=2 

S@ FOR A=1i_ TO_18 

6a cle. : PRINT INK 2; "ROUND NU 
MBER “; NK 337 

7e@ PRINT INK 1; °"4 -_ROCK" 

&@ PRINT INK Bi"2 - SCISso0R5" 

3@ PRINT INK 3; °3_- PARPER™ 

188 eran INK 6; PAPER 2; °"ENTE 


Ro 4 a 
220 INPUT oe 
ize PRINT INK BB; UYQU PICKED “i 
330 IF 6=1 THEN PRINT “ROCK* 
24@ IF B=2 THEN PRINT “SCISSORS 
i5@ IF &=2 THEN PRINT “PAPER” 


A6@ PAUSE 52 

4708 LET C=INT iRND#3) +i 

g8@aQ PRINT INK C;‘/"I PICKED &; 
aa IF C=i THEN PRINT "ROCK" = 
Dee IF G=2 THEN PRINT "SCiTSSOQR5 


24@ IF C=3 THEN PRINT “PRPER” 

2De@ LET D=268 

2228 B=c THEN PRINT FLASH 1:° 

STT'S A BRAVES: GO TO 6 

B4a@ IF C=1 AND B=2 OR C=e AND & 
3 AND B=1 THEN PRINT FLA 


=3 OR C=3 

SH 1; BRIGHT 2; °"I WIN!”: LET co 

NP=COMNP+1: GO TO Dd 

25@ IF B=1 AND C=2 OR B=2 AND 
OR E=2 


c 
=o AND C=1 THEN PRINT FLA 
SH 1; °°YGU WINE: LET HUM =HUNS 1 
262 PRINT ~* [SCORE 7S MES >) COMP 
2 


ITRAB 18; "YQU. “; HUN 
272 PRuUSseE iz 
BBQ NEXT 8 
BBS INVERSE 2 
2aa TF HUN=CONP THEN PRINT °“°"YT 
HAT GRNE WAS A DRAW!” 
Bee IF HUN <COMP THEN PRINT ‘‘"Es 


WON THAT GAME! 
3ie iF COMP HUM THEN PRINT *-7"Y 
OU WON THAT GAME!” 


You'll see in line 60 the words INK 2 have been added. To get 
these into the line, press LIST (the K key) then 60, so you have LIST 
60, then press ENTER. The word ‘scroll?’ will appear at the bottom 
of the screen. Press N to stop the listing scrolling further, then hold 
down the CAPS SHIFT key, and press the 1 key, which has the 
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word EDIT above it. The line the cursor (a greater than sign) is 
pointing to (in this case, line 60) will appear at the bottom of the 
screen. We want to insert the words INK 2 after the word PRINT, 
so holding down the CAPS SHIFT, press the 8 key. You'll see the 
cursor move across in the direction of the arrow on the 8 key. Once 
the cursor has gone past PRINT, but before it goes any further, take 
your finger off the 8 key. Now, press down both shift keys at once, 
and then release the CAPS SHIFT key. Still holding the SYMBOL 
SHIFT key down, press the X key, and — if all is well—the word INK 
should appear. Follow this with a 2, then a semicolon (SYMBOL 
SHIFT, then the O key), and then press ENTER again. You'll see the 
amended line take the place of the original line 60. 

RUN the program again, and you'll see the words ROUND 
NUMBER 1 appear in red. The colours are chosen by the numbers 
zero to seven (as will be explained in more detail later). INK 1 will 
cause the letters following it to be blue, 2 will turn them red, and so 
on. (You don’t need to run a whole game through before 
continuing. Just enter a Q when asked for your number, and the 
program will stop with a puzzled error message, because it doesn’t 
know what O means.) 

Press EDIT (CAPS SHIFT and 1) again, and line 60 will reappear at 
the bottom of the screen. Using the CAPS SHIFT/8 combination, 
move the cursor across to go past the quotes after NUMBER and 
add INK 1, then another semicolon (which must join these extra 
commands in a PRINT statement together) before the A. Return 
the line to position within the program with ENTER and RUN the 
program again. You should see the words ROUND NUMBER 
appear in red, and the number 1 come up in blue. 

lf the colours are unclear, fiddle with the channel tuning, and the 
colour control on your television, until you can see the red and blue 
properly. Different makes of television reproduce the colours 
differently, so you may find one colour is more intense than the 
others. 

You can now go through the whole program, making the 
necessary changes, to add colour throughout. The lines which 
need to be modified are 60, 70, 80, 90, 100, 120, 180, 230, 240, 
250 and 285 (which must be added... it will sort itself 
automatically into order). RUN the program again, and see how 
well the colour commands enhance the program and give it life. 
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Touch-typing Tutor 

Our final program in this introductory chapter to the book is 
designed to help you find your way around the keyboard. When you 
RUN the program, it will put a number or a letter of the alphabet, 
chosen at random, on the screen in the approximate position it is 
on the keyboard. You have a limited time in which to press the 
designated key. If you get it wrong, the forgiving computer gives 
you another go. You'll be pleased to see how quickly you'll learn the 
layout of the keyboard using this routine. 

If you find you do not have enough time to find the keys when 
you first run this program, change the 100 in line 180 into a bigger 
number. Start with 300, and gradually decrease it until you feel the 
time is about right for your present level of typing prowess. Be 
careful to get the numbers and letters in the DATA statements 
(lines 80 to 110) correct, as these control where the various 
numbers and letters will be printed. After you've run through the 
program a few times, come back to this book for a line by line 
breakdown of it. 

228 REN KEYBOARD TUTOR 
2a DIM A£(36,53 

3@ LEY SCORE= 

40 FOR A=3 TG 36 


S& READ BF 
6@ LET ie Sb =B5s 


SG DATA oes5e02- 
, "40611", "58616" 
, ‘B@E25", “99626" 
Q@ BATA “A12eS2" 
", "Di2sseEe™"., “E@saa”™ 
", "HIB", ,“reg23" 
_iaa DATA “K2223" 
, NiS2ea™, “oesz6" 
. “RBSII" /"$1205","TAgQi4a" 
138 DATR “UeeEra”. "UIS2¢",. “vEeses 
, "HX 2506". °YSS1i7", “2isea5” 


“206085". “3Se6ea6 
“60617"'," 78629 
“@8629" 
“BiSiazr",. “Cisi2 
“Fi2i1i". “Gisid 
ae wisee"” 

2226" .,.°NiS23 
“POesg2o". “ESG2 


we ie te te fe te fe te te te 
. 


226 REN 

13@ REN THE TEST 

3408 REM 

yeh FOR A=1 TO 38: S5EEP .G2,-1iS 
= 


=i55 IF INKEYSi3°" THEN GO TO 15 


“262 LET S=INT (RNG*£36) +3 

i178 PRINT FLASH 14; PAPER 6;AT U 
RL TRABIBI (2 FO 333,.UARL (As tb ta 
Ba © ge ae al oc 5 eS are OB 
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28@ FOR C=1 TO 188 

23308 LET C#=INKEYS 

2Bea IF C#is"" THEN GO TO 266 
2i@ NEXT Cc 

S20 PRINT AT @.8:; INK F; PAPER 
4; FLASH 2: BRIGHT 2: "YOtUr FOOK T 
OO LONG 

SSS FOR G=2 FTO F8: NEST BD 

23a NEXT FR 

Saea Ga TO sea 

2ee IF CS=ASiB. 1} THEN LET SCOR 
ESSCGRE+1: BEEP .25,.SCOREs4: PRI 
NT AT 36,8; PAPER 6; INK 2; “WELL 
PONE. YOuR SCORE 35 NOU “; SCORE 
2E5 IF Csi sAsiB,23} THEN PRINT RA 
F B,G, INK i: PAPER 6; FLASH 1; ~ 

SORRY, BUT THAT u 5 WRONG; TAR 

B 2G; "TRY SGAIN': GO TO ife 

Bre FOR G=1 To i898 

2BQ NEXT G 

29aG@ NEXT A 

Bea CLS : PRINT AT 8,2; FLASH 3 
> BRIGHT 41; PAPER 6; INK 2. “YOUR 
SCORE WAS “;SCGRE;“ OUT OF 18” 
32@ IF SCORE;7 THEN PRINT AT is 
-?> FLASH 3; INK 4; PAPER ¥; BRI 
GHY 43; “CONGRATULATIONS!” 


10 


20 


30 


40-70 


This is a REM (remember REM stands for remark) 
statement which the computer ignores. Note you can put 
as many spaces in a REM statement as you like. 


Line 20 sets up an array. An array is used when you want to 
store a list of numbers or words and refer to the item in the 
list by referring just to the position it occupies in the list. 
Line 20 sets up an array called AS. The dollar sign means 
that the items stored in the list are words, within quote 
marks, rather than numbers. The first e/ement of the array 
is referred to as AS (1), the second as A (2) and so on. 


Sets a variable called SCORE to hold your score of the 
number of letters you find correctly. 


This is a FOR/NEXT loop, as in the previous program. Line 
5@ (READ B$) acts in conjunction with the DATA 
statements (lines 80 to 110). It reads each of these in turn, 
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80 
-110 


120 
-140 


150 


155 


160 


170 


one for each cycle through the loop. The first time through 
the loop it reads the first item in the DATA line (“10602”) 
and assigns this to BS. Line 60 then assigns A& (1) to this 
value of BS. The next time through the loop, when A 
equals two, so line 60 reads, in effect, LET AS (2)=B%, and 
this time BS has the value of the second item in the DATA 
statement, “20605”. This continues until all 36 items in 
the AG list have been assigned a DATA statement. 


The DATA statements. Notice that items are enclosed 
within quote marks, and separated by commas. 


Three REM statements 


This sets up another FOR/NEXT loop. FOR/NEXT loops do 
not have to be called A; any letter of the alphabet is 
acceptable, so FOR J=1 TO 10 or FOR M=1 TO 10 would 
do as well. BEEP .@2, — 10 makes a short sound (BEEP is 
discussed in detail later in the book), and CLS clears the 
screen. 


INKEYS, which you'll find above the N key, reads the 
keyboard, waiting for a key to be pressed. This line waits 
until your hands are clear of the keyboard before 
continuing. 


This sets B equal to a random number between one and 
thirty-six, to choose one of the numbers zero to nine, ora 
letter of the alphabet. 


This is a fairly complex line, which prints the letter or 
number on the key AS (B, 1), at its correct location, which is 
done by PRINTing AT the second and third numbers in the 
DATA statement down (so if the second and third 
numbers are 12, it would print 12 lines from the top), and 
the fourth and fifth numbers across (so if the fourth and 
fifth numbers in the DATA statement were 05, it would 
print five spaces across). In other words, each of the DATA 


180 
-210 


220 


225 


230 


240 


260 


265 
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statements contains either a letter or number as the first 
element, and the final four elements are its location on the 
screen, Items two and three being the position down the 
screen, four and five the position across. 


This FOR/NEXT loop waits a designated time for a 
keypress, the length of the delay being set by the number 
at the end of line 180. If a key has been pressed, line 200 
detects this, and sends action to line 260. 


If you don’t press a key in time, the computer prints up the 
message YOU TOOK TOO LONG 


This is a short delay, using a FOR/NEXT loop. You can use 
PAUSE or an ‘empty’ FOR/NEXT loop for a delay. 


Sends action back to line 150 for the next test. 


At the end of ten goes, sends the computer to line 300 to 
print out the final score. 


Checks to see if the key pressed is the same as the one 
printed on the screen, and if it is adds one to the SCORE, 
and prints out the message WELL DONE, YOUR SCORE 
IS NOW 3, or whatever your score happens to be. 


If the key pressed was not the same as the one shown on 
the screen, prints SORRY, BUT THAT WAS WRONG, TRY 
AGAIN, then sends action back to line 17@ to let you try 
again. Notice that there is a single comma after the close 
quote marks following the words TRY AGAIN. Leave this 
comma out, and see how this changes the display. 


This is a delay before the next letter or number is printed 
on the screen. 


Sends action back to line 150. 


Prints out the score. 
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310 Adds a congratulations message if a score greater than 7 
has been achieved. 


You'll find this is a very useful program to help you gain familiarity 
with the keyboard layout. 

The material in this chapter has been somewhat condensed but | 
hope that careful reading of it, and entering the programs at the 
right time, has given you a fair introduction to programming in 
BASIC on the Spectrum. This information should complement that 
given in the two manuals which came with your computer to help 
you become a proficient programmer fairly rapidly. The rest of the 
book will assume you have mastered the information given in this 
chapter, and that you understand the introductory manual, and 
much of the early material in the second manual which came with 
your computer. 
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Exploring the Spectrum's 
colour 


The Spectrum has six colours (dark blue, red, magenta, green, 
cyan, and yellow), plus black and white. Each colour is given a 
number between 0 and 7. The relationship between colours and 
numbers is: 


Black 

Dark blue 

Red 

Magenta (a sort of pinkish purple) 
Green 

Cyan (a light blue) 

Yellow 

White 


NOORWN-—- G&G 


If you have a black and white television, or turn the colour control 
right down on your colour TV, you'll see these colours, printed in 
this order, form a range of greys from black to white. Try this: 


10 FORX=0TO7 

20 PRINT INK X; “ MM” (two solid squares obtained by 
pressing the white shift key, followed by key ‘9’ and 
then key ‘8’) 

30 NEXT X 


The colour codes also relate to how the colours are produced by 
the television. A colour TV uses blue, green and red light. All other 
colours can be made up of a mixture of these three. Magenta is 
made by mixing blue and red and its code, 3, is the sum of the other 
two colours’ codes. 

When you first switch on your Spectrum you will see that the 
entire screen is white and you are typing on the screen in black. It is 
easy to add a splash of colour by using the BORDER command to 
be found on the B key. Try this: 


BORDER 1 (followed by ENTER) 
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This turns the border dark blue. You can put any one of the eight 
numbers after the BORDER command, and after pressing ENTER 
the border around the screen will change to that colour. You can 
also choose what are called INK and PAPER colours. The PAPER 
colour is the colour of the rectangular page inside the border, and 
the INK colour is the colour of the text and graphics characters that 
you type in. Getting the PAPER and INK commands is alittle harder 
than the BORDER one. To change the PAPER to a new colour, you 
first press the white shift key on the left of the keyboard, then the 
red shift key on the right, and lastly, still holding down the red shift 
key, you press the ‘C’ key. Try some of the following (note that as 
with the BORDER command above, you don’t need line numbers 
for these examples): 


PAPER 3 : CLS (the CLS command is on the ‘V’ Key) 
PAPER 2: CLS 
PAPER 6: CLS 


You see the main rectangle of the screen's page turn first 
magenta, then red and then yellow. As you probably know, you can 
put any of the eight colours’ numbers after the PAPER command. 
But to get the colour all over the page, you must then follow your 
PAPER command by a CLS (clear the screen) command (there is a 
way of avoiding this — but I'll return to that later). 

The INK command is just as easy to use. To get INK you press 
the CAPS SHIFT key again, holding it down you press the 
SYMBOLS SHIFT key on the right, and still holding the red shift key 
down, press the ‘X’ key. The INK command is used in much the 
same way as the PAPER one. 

To see the effect of coloured text try: 


10 PAPER7 
20 INK3 
30 CLS 


40 PRINT “Testing” 


If you run this program you'll see the computer prints the text in 
magenta ona white background. You can put any colour text on top 
of any colour paper, but many of the colours do not mix very well. 


= 
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To see what | mean change the above program to the following, 
and run it. 


10 PAPER 5 
20 INK4 
30 CLS 


40 PRINT “Testing” 


It is very difficult to see the words. Red and-magenta don’t mix 
too well either and typing magenta text on top of a green paper is 
particularly difficult to read. 

You can use the colour commands to colour just a part of the 
screen, rather than change the whole page within the border. To 
see this, try the following: 


PAPER 7:CLS:PRINT INK 5; PAPER 1; “Testing” 


As you can see, just the area behind the words was in light blue, 
with the text in dark blue. 

There are four things that you can do to the colour and all the 
BASIC words for these can be found below the bottom row of keys 
on your Spectrum; they are FLASH, BRIGHT, OVER and INVERSE. 
The last two of these are not restricted to the use of colour, but 
they have many uses when dealing with colour. 


BRIGHT 

The BRIGHT command is easy to understand. This is used to make 
the colour of either the text (INK) or the background (PAPER) stand 
out a little more. Using it the colours can be made a little brighter 
and in some cases a hue or so lighter. This routine shows what 
BRIGHT does: 


10 FORx=0to7 
20 PRINT PAPER x;BRIGHT 0;” ";BRIGHT 1;" "; 
30 NEXT x 


This prints spaces (think of them as little blocks of PAPER) in 
blocks of two. The first is the normal colour and the second is the 
same colour made brighter. As you can see the BRIGHT command 


32 Exploring the Spectrum's colour 


is followed by either a zero or a one. Zero turns BRIGHT off, and 
one turns it on. 

This next program produces the same result, putting the 
BRIGHT control in a loop: 


10 FORx=0TO7 
20 FORy=0TO1 
30 PRINTINKx; BRIGHT y;" "; 


40 NEXT y 
50 NEXT x 
FLASH 


The next word is FLASH and it is used rather like BRIGHT. It too is 
followed either by a zero or aone depending on whether it is ‘on’ or 
‘off’. We could make the BRIGHTer squares in the last example 
flash for instance with this routine: 


10 FORx=0TO7 
20 FORy=0T01 
30 PRINT INKx;BRIGHT y; FLASH y;" "; 
40 NEXT y: NEXT x 


The routine shows that FLASH flashes between the colour of the 
INK and the colour of the paper. If you have just switched on then 
the INK is set to INK 9. INK 9 is a special statement which tells the 
Spectrum to print in whatever INK would be the best contrast to 
the present PAPER colour. The program you've just run shows that 
for the four darker colours the Spectrum chooses white as the INK 
and the other lighter colours have black. Hence the BRIGHTened 
dark coloured squares flash between colour and white and the 
lighter colours flash between colour and black. 

INK 8 is also a valid statement. It means that the last colour is to 
be retained. You can use these two numbers with PAPER 
commands as well, and they have the same effect. Thus, PAPER 8 
and PAPER 9 are valid statements. You can use the number 8 after 
the FLASH and BRIGHT statements, but not the 9. In all cases the 
number 8 means that what ever attribute that square was set to 
will be retained when a new character is printed on top. 
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INVERSE, OVER 

The two remaining words that you can use when dealing with 
colour are INVERSE and OVER. INVERSE carries out the basic 
action in FLASH, namely to change the INK to PAPER and the 
PAPER to INK. This has the effect of inverting the text, so white 
writing on black becomes black on white, or vice versa. It works for 
all the colours of INK or PAPER and takes a form similar to BRIGHT 
and FLASH. Once again, the word is followed by either a zero 
(meaning ‘off') or a one (meaning ‘on’). However you can’t use 8 
after this word. Try this to see how it works: 


10 FORx=0TO1 

20 PRINT INVERSE x; INK 5; PAPER 1; “This shows how 
inverse works” 

30 PAUSE 50 

40 NEXTx 


OVER is a very useful BASIC word andit refers toa way in which 
you Can overlay one character on top of another. Once again it uses 
the zero-for-off and one-for-on control. Like INVERSE, you can’t 
use the number 8 after it. OVER works by calculating what is called 
an exclusive-or operation on a character square. What this means 
is that it lays one character over another, but where there is a black 
dot in both at the same place it will print a white dot instead. The 
way OVER does its job is best understood by considering that each 
character square on the screen (there are 32 across and 24 down) 
is made up of 64 tiny dots in an 8 by 8 matrix (rather like a chess 
board or a square of graph paper). When asked to OVER print 
something the Spectrum looks at the same dot in each of the 
character squares in question and goes by this ‘truth table’ to 
decide whether to end up with that dot as black or white: 


NEW CHARACTER 
BLACK DOT 


WHITE DOT 


BLACK DOT 


OLD CHARACTER 
WHITE DOT 
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Let’s take an example to make this clear. Print two characters 
onto your TV screen, the capital ‘O’ and the zero ‘0’: 


PRINT “O 0” 


Now imagine what you would get if you OVER PRINTed the 
capital O on top of the zero. Having formed a mental image of what 
you expect (bearing in mind that two blacks give a white) now try 
the actual OVER PRINTing: 


PRINT OVER 1;“0";CHR$8; "0" 
(Note that CHR&8 is a control character which backspaces) 


You should get a cross-hatch line, or stroke. Do you see why? Try 
OVER PRINTing a few other characters on top of each other and try 
to predict what will happen. 

How else can OVER PRINTing be used? One good use is making 
objects appear to pass in front of or behind others. A simple 
example of this is in the program OVERPRINT. In this a normal 
letter ‘p' travels across the screen toward an inverse ‘p’. The 
normal ‘p’ passes over the other one momentarily creating a black 
square (remember that black and white give black?) then goes on 
its way leaving the inverse ‘p’ as it was. 


OVERPRINT 


S PAPER S: INK 2: CLS 
4@ PRINT INVERSE 1:8AT 19.18; “p 


45 FOR a=8 TO 2&8 


ATTR 

| mentioned that you can only have one INK colour and one PAPER 
colour in each character square. This is because the Spectrum 
stores information about the colour of INK, of PAPER, whether a 
character is FLASHing or not, and whether it is BRIGHT or normal, 
for each character square in an area of memory set aside for 
“attributes” (from location 22528 to 23296). This gives 768 
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memory locations which is 32x24, the number of columns 
multiplied by the number of rows on the TV screen. Each of these 
memory locations contains a number between @ and 255 which 
refers to what colours are there and so on. This number is returned 
when you use the Sinclair BASIC term ATTR (x,y) where x andy are 
the coordinates (as in PRINT AT) of the square in question. The 
number is not easy to understand until you have had some practice 
with it. 
It is made up of four numbers added together. These are: 


128 or @ depending on whether the square is FLASHing 
64 or @ depending on whether it is BRIGHT or not 

8 times the PAPER colour’s code 

and lastly the code for the INK colour. 


You use ATTR as follows: 


PRINT AT 10,10;FLASH 1; BRIGHT 1; INK2; 
PAPER 6; “S”;ATTR (10,10) 


Here you are printing the letter S at the position row 10, column 
10, in red ink ona yellow background with BRIGHT and FLASH both 
on. What do you think the computer will report as the ATTR of 
position 10,10? It should be 128 + 64 + 8*6 + 2 = 242. Thisis fairly 
easy to work out given that you know the attributes. If you are just 
given the response to ATTR (x,y), and you want to work out what 
the number means, you can use the ‘ATTR’ calculator program. 

You could set variable ‘A’ equal to the result of ATTR (x,y) in a 
program and make use of the values of INK, PAPER, BRIGHT and 
FLASH obtained. One good use for ATTR is detecting the nature of 
the character at a certain position. For instance, you might wish to 
have a space craft travel along until it hits a mountain. You could set 
the mountain up in a different colour to the rest of the picture, and 
by testing whether the character space ahead of the craft is that of 
the mountain or not you could tell when collision will occur. 


ATTR CALCULATOR 


2G INPUT “RIF “IR 
26 IF R-lS6tSe FHEN GO Fo se 
38 LEY S=8-12268: PRINT “Ftash 


49 GO TO 56a 
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S@ PRINT “Ftash OFF,”, 
6@ IF s-84:i8 FHEN GO FTO 28 
<= 


7@ LET ASA-64: PRINT "Bright « 


ruaiee 


S@ FPRINT “BriGrhi o@FrFr,”-, 
1@0@ EF RrS=sINT (HrGBi THEN fo To 
148 
4208 PRINT “Psre 2& “J EHY tH-D? 
sr “Bit 


, °,2nk 28 “i-tG2INT (fA 
RK 


246 PRINT "HNO Ir 
& 


In this case the mountain will usually be in a known position 
(although you could arrange for a moving planet surface) so the use 
of ATTR is not of great value. But in other cases you will not know 
exactly where an ‘obstacle’ is or you may only be able to note 
obstacles’ positions by many IF... THEN statements. In these 
circumstances, ATTR could be very useful. 


Plotting a rainbow. 

Let's try some high resolution printing in colour. The next program 
plots a rainbow. Take note of how the command to draw an arc of a 
circle is used to produce curves of colour. Note too that the arcs of 
a different colour are a character space apart. Can you recall why 
this must be so? There can only be one INK colour in each character 
space, so if you draw two differently coloured lines too close 
together, then the colour of the second one will ‘contaminate’ the 
first by changing all the INK values in that square to its own code. 


2 REM RAINSON 


S LEY x=2 
3 OTH sf6i: BO SUB Be 
&@ LET wet 
S&S SRPER - BORCER B: CLS 
28 FOR es=1288 FO S58 STEFF if 
22 Fo v= FO S 
SB INK s fa} PLOY e3u:,8: OFA 
~4&.3-8@64u,.PF Feo 
48 MEAT wu 
SS LET yous 
ae IF =F THEN GO TD FO 
7B HEX 3 
2@8 LET af{24}3=3: LEY a@t2i=3: LET 
StG3=S:> LEFT sete} =<4:> LEFF ais? =<G- 
LET af{6)3 = 
23i8 RETURN 
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2Bs RINT PREFER FAT 29,5; INK 
3; °S" i INK 32;°P"; INK Si 75) INK 
@,°Or'S INK 6G. °R";, INK SS: “ia” 


128 colours 

Being able to print two colours in each character square can be 
used to advantage to create up to 128 colours on your Spectrum. 
You need first to define a graphics character which looks like a very 
small chess board (as is on the ‘A’ key of the ZX81). 

By making the PAPER one colour and the INK another you will 
effectively make half of the character one colour and the other half 
the other. Because the colours are spread evenly, the two colours 
mix to form anew one. Red dots and yellow dots mixed in this way, 
for example, give a good orange. Try it now, and see just how many 
different colours can be produced on the Spectrum with the 
program. 


18 REH COLOURS 

2G PRPER 7: BORDER S:- ors 
38 REM CHESS-BOARD CiKe CHR® 
4@ FOR X=@ TO 6 STEP 

S@ POKE USR “P"4+x%,55 

6@ POKE USR “F“+X41,178 


S@ FOR P=@ To 7 

SG FOR I=@ TG 7 

41@@ FOR B6=@ TO i 

248 PRINT PAPER FP; INK I; BRIGH 
T B: “PRS: 

428 NEXT B: NEXT I: NEXT & 

438@ PAUSE 2a 


14@ CLS : PRINT “AND NE FULL & 
CREEN..."*: PAUSE 288 
158 Cis 


i6@ POKE 25692.100 
47@ FOR P 
388 FOR = 
19a FOR B 2 
2Q@ FGR K=8 TG Si 
218 PRINT PAPER P:; INK I: BRIGH 
T &: “PPPPPPPPProppPprePpprprePpPreppppp 
PPPPp* 
226 REM ALL ‘'P‘S ARE GRAPHICS 
CHRS ON KEY ‘FP: 
23@ NEXT K 
£246 POKE 25605. 108: 
REM AUTO SCRGLi 
2S5@ NEXT B: NEXT I: NEXT F 
26e@ STOP 


DS eo 
ai 
K 


= 


aaa 
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You could do this another way by drawing cross-hatched lines 
across the screen using the DRAW and PLOT commands, drawing 
the lines so that they are one pixel (dot) apart. By drawing in one 
INK on top of a different coloured paper the same effect could be 
obtained as when the graphics character was used. 

The Spectrum can produce a very fine display by drawing lines 
with the DRAW command which interact to give a kind of 
‘interference pattern’. NETWORK is a good demonstration of this. 

This program plots the screen's central position over and over 
again each time drawing from that point to a position on the edge of 
the screen. If you draw to every edge position you will eventually 
get a solid mass of colour. But by drawing to pixels at least one 
pixel apart very interesting patterns emerge. This is because the 
lines your Spectrum draws are not completely straight, but vary in 
fixed ways depending to what point and from what point they are 
drawn. The program draws all INK colours against all possible 
different PAPER colours, and the effect depends on the colour mix 
involved. Some colours seem to interfere with each other more 
than others, and others appear to swim around the screen in 
eddies caused by the pattern. 

38 REM HETUGRH 
#8 LEY 2=1 


G@ LET ink =(RNDS5S! <2 
42 LET Ppaper=tRNDsSi +i 


S@ IF ink=paper THEN GO TG 3a 
SS PRPER paper: INK ink: CLS 
66 FOR A= To S 
7@ FOR X=8 FO 254 STEP 2 

6S PLOT ics 'BS: PRAY i-iStesi+ 


ss = Z yur owe 2 
Ri@® PLOT 126.868. BRSu aofsez.zs- 


1468 NEXT A: PRUSE 2868: 60 To 2 


The next program is at least as attractive as NETWORK. I've 
called it ICESTAR. It draws a many-armed star in white and then 
using a technique which adds a new dimension to your Spectrum, 
overlays a new PAPER colour on top of (or underneath) the 
snowflake. Usually, as you'll recall, to change the PAPER colour 
you need to first state the colour number, and then use the CLS 
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(clear screen) command. Of course, this destroys the pattern 
you've drawn. For this reason, in this program, the Spectrum 
creates a String of spaces the same length as the size of the screen 
(704 character positions) and by printing this string over the pattern 
in random colours, a splendid effect is obtained. 


28 REN ICESTSR 
PBR INK F: BORGER BR: FPRFER 2: ct. 


Be LEY Per’ ">: LEFF Fee” ” 


48 FOR xX=8 To Fas 
5a ET PPP PTs 
68 PRIr “2°53 2: NEXT 


NT : x 
7@ REM CREATED STRING oF 
SPSCES SIZE OF SCREEN 


166 FOR K=28 FO 88 STEFF if 


23@ LEF E=t2-¥YI -o 
3248 FOR L=vY TO = STEP £ 
A4S@ LET S=KstOS tbs} 
z LET H=SSSIN L 
LEY =Sst00S Lb 
PLOT LeS+Hn.5b5+uU 
NEXT bL 


LET FLAG=FLAGtL 

iF FLAG=1G1 THEN GO TO 23% 
GO TO 156 

LET FLAG=8: NEXT K 


PUNO A Boe Bb 
CON HEIL CO) ah 
AHGAREG 
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#248 LET COL=INT (RND#63 +i 
256 PRINT AT &.@; PAPER CoOL. GU 


ER i:;FP8 
PEG PAUSE 1686: GO TG 248 


You can achieve this same result in another way too. Think how? 
The most obvious alternative is to POKE the ATTRibute area of 
memory with the code to change the PAPER colour of each 
location on the screen. The ATTRibute area begins at 22528 and 
the screen on which PAPER is changed (excluding the bottom two 
lines where new program lines are entered) ends at 23231. The 
following program also changes the colour of the screen without 
destroying the text or pattern there: 


10 FORx = 22528 TO 23231 
20 POKE x,32 
30 NEXT x 


Can you see which colour I'm POKEing? Keeping in mind that the 
PAPER colour is stored as eight times its code, this has POKEd the 
screen with code 4, which is green. 

The next program, NIGHTWATCH, plots a very attractive, 
balanced picture on the screen, using many of the colour 
commands we've discussed so far in this chapter. 


12 Ree ee nH 
22 @: INK 7: BORDER &: ¢ 


3@ LET A=INT (1273RND? 


7@ IF Rc2.5 THEN éo° TOS 248 


INK =z 

9@ PLOT i27-A.do?7+6 
16@ PLOT 127+Ah.37-B 
148 PLOT 127-A.dS?7-5 
126 PLOT 127+. SF+E 
i138 GO TO 38 
14@ PLOT OVER 1; 127-A.5 7-5 
258 PLOT OVER 1: lE7eA. SBTte 
168 FLOT GUER 1:18 F-A.SF+5 
4178 PLOT OVER 1; l27+A, 87-5 
i166 G60 TO 36 


Drawing circles in colour on your Spectrum can be rewarding. 
The statement you use is of the form: CIRCLE INKi;x,y,z where | is 


r 
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the INK colour, x and y are the coordinates of the centre of the 
circle, and z its radius. RANDOM CIRCLES is a program. which, as 
its name suggests, draws randomly-placed circles in randomly- 
chosen colours. 


REM RANDOM CIRCLES 
PPE OM: CLA 

LEY M=fEBAésANO a1 
LET Y=fiS4sRnn +28 
LEY 2={StRANDi 41 
CIRCLE INK 2:X,yY,168 
GO To 18 


The BOWLING BALL program does its work by drawing circles 
of increasing radius from the same centre (using a STEP of 0.1 in 
the radius increase). This has the strange effect of leaving five main 
white areas in the balls, and hence the name for the program. 


BOWLING BALL 


INK 32: PRPER &: CLS 
LEY X=188: LET y=x 
FOR a=@ Fo 22 STEF 1: 
CIRCLE X.Y¥.a 


NEXT 32 
LET X=238: LET y=as 
GO Ta 2e 
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Drawing circles one on top of another, as you saw in the random 
circles program above, can produce multi-coloured circles, 
because as two circles are printed close together, the colour of the 
second changes part of that of the first. This effect is used again in 
the program CONE. 


FOR X=38 TO 188 STEP 1@ 
LET 2=i6eRND? +1 
CiRcLE INK Z;%,Y.¥-25 
LET Y=¥+4 

NEXT xX 

PAUSE @ 


MIC md CH Be C9 19 fot 
POLO LAD DAE Dn 


As you can see the circles are drawn in ever-increasing size and 
in random colours, producing an almost three-dimensional effect. 
The final program could form the basis of a rather more complex 
figure drawing and colouring program. It allows you to draw a 
triangle of any size within the screen’s boundaries and it will be 
filled in the colour of your choice. 
2 REN TRIANGLE DRAVER 
S SCRDER 3: FARPER F:. LS 
2 INPUT “START X COORDINATE™; 
a 2@ INPUT “START YW COORDINATE? 


S38 INPUT “HEIGHT? ‘; 
SS GF vWeH>itsS THEN GG TG i668 
46 INPUT “LENGTHT SL 
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45 IF NX¢4bL:3355 FHEN GG Fo 285 
Se ie teh’ “EGLOURT'  & 


@ Ta H 
7@ PLOT oer DRAW INK O;0L.P 


36 

i@G CLS : PRI “OUT GF RANGE: 
“ENTER AGAIN" 
118 GO TO i186 


44 


Exploring the Spectrum’s 
sound 


As you probably know, it is very easy to get sounds out of your 
Spectrum. You use the BEEP command. (You'll find it printed on 
your keyboard in red below the ‘Z’ key. First press the white CAPS 
SHIFT key, and the SYMBOL SHIFT key on the right-hand side at 
the same time, and finally — still holding down the red shift key — 
press the ‘Z’ key.) To make a sound, type in something like this: 
BEEP 1,0 (followed by, ENTER). If you try this you'll hear a tone 
which is about a second long and at a pitch around Middle C. The 
first number refers to how long a note is wanted, and the second 
determines the note’s pitch. The ‘duration’ number, which can be 
from about 0.00125 to around 19, is in seconds. Any time shorter 
than 0.00125 will not really sound at all, and a duration longer than 
10 seconds will throw up an error report, “Integer out of range”. 

The second number can be in the range —60 to +69. Each step 
refers to either a semitone above Middle C (which is number @) ora 
semitone below it. So BEEP 1,1 will sounda tone a semitone above 
Middle C for a second, and BEEP 1,—1@ will sound a note 10 
semitones below Middle C. Remember to put the comma 
between the two numbers. 

You can get some idea of the range of frequencies the Spectrum 
can produce by running the following short program: 


10 FORn=-—60TO69 
20 BEEP .2,n 
30 NEXTn 


As you heard, the pitches ranged from a series of fast clicks to 
high warbles. For music you may well conclude, as | have, that the 
most useful range is around Middle C — about +20 either side —and 
this possibly explains Sinclair's assignment of Middle C to zero. 
However, the highest and lowest pitches can be of use as well, as 
we'll see in due course. 
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You have probably noticed how quiet the sound is. To get louder 
sound, you need a lead to plug your Spectrum into an external 
amplifier. Most amplifiers with a ‘mic’ socket are suitable. You can 
get the sound signal from both the ‘ear’ and the ‘mic’ sockets at the 
back of the Spectrum, with the ‘ear’ signal being a little stronger. 
You may have to experiment to see which is best to attach to your 
amplifier. 

Once you attach an external amplifier you may notice that as you 
press each key there is a ‘click’. This feedback on pressing a key 
can be useful, but the click you hear without external amplification 
is much too quiet to be of use. You can remedy this by entering the 
following, as a direct command: POKE 23609, 100 (then press 
ENTER). 

Now, whenever you press a key there is a distinct beep. This can 
be very useful when you're typing quickly, and only looking at the 
screen occasionally. However this beep will also be amplified by 
your external amplifier when you use one. You will either have to 
put up with this or leave your Spectrum in its ‘click’ state whenever 
you are using sound a lot. Of course you can plug and unplug the 
leads at the back, but this is rather a lot of fuss. If you do use an 
external amplifier, though, you will have to unplug the amplifier 
from the back of your Spectrum each time you want to load a 
program or save one (depending on which outlet you used at the 
back). 

Let's get back now to the music. As each note number in the 
BEEP command represents a semitone rise (or fall if it’s anegative 
number), there are 12 of these to an octave. Thus Middle C is 0, and 
the C above is 12, and so on. You could type music into your 
Spectrum by setting your tune out as notes on staves, with bar 
lines, and then convert each note to its BEEP number and each 
note’s duration to a number (probably setting a single beat as 0.25 
seconds). But this is time-consuming. It would be much more 
convenient to be able to type in a melody as a series of letters for 
notes, and numbers for beats. 

Our MUSIC PLAYER Program allows you to do this. It tells you it 
treats the letters A to G as the lower octave (where ‘C’ is Middle C) 
and letters a to c as the next higher octave. You enter your melody 
as a single line where each note is followed by a number which 
indicates its duration. I've chosen 1 to represent a one beat note, 2 
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for two beats and so forth. To give yourself a choice of speed adda 
line like this: 


5 INPUT “What speed? 1 is slow, 5 is fast” ;x 


You also need to change line 370 where the BEEP command is 
executed: 


370 BEEP X(Z)/x,Y(Z) 


As you'll see when you try this program, it is much easier than 
having to write out music on staves beforehand. 


2@ REN HUSIC PLAYER 

2@ DIM X(5@83:> DIM ¥Y ise. 

3@ LET K=@: LET L=i 

4@ BORDER 2: PRPER 4: INK @: © 


S@® PRINT AY _B, 2B: XSNVERSE 32, °H 
HSIC PLAYER" ”’ 

6@ PRINT “TYPE IN YOUR NLSTC AF 
S$ A LINE OF LETTERS AND MUMSERS- 


7G PRINT °“" "PUT NOTES AS LETTE 
ai al FOLLOUVED By THEIR LENGTH IN & 

Be PRINT “7 "YQU HAVE FO DPCTR 
VES.THE LQNWER GHE IS FROM fF ro & 
ANE THE UPPER FROM a Fe cc.” 

S@ INPUT NS 

186 FOF A=32 FO CEN NS SFSP = 
11@ IF COPE NSiAb sa? THEN GO TO 


ol IF NS (RI ="a" THEN LEY KH=-®. 


” 
aad 


pa 


THEN L&Y H=i.S 
ODE NS (AX -~AFI FEE 


220 FOR T=2 TO LEN NS STEP = 
2308 LET X{LI=UAL Nitti «a 
248 LEY t=t+2 


NEXT T 
268 GO TO 368 
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276 STor 
286 IF NS${AR="A” THEN LEY K=-a, 


S 
ee Ee ie THEN LEY K=-@,. 


See IF [ (Ad ="F" THEN LET K=e8.5 
316 IF {Ad «“G" THEN LEY =8.5 
3206 LET NFL = reope NS(A3 -87-K) = 


33@ LET K=8 

S340 LEY t=b+3 

SSea@ GO To 2ee 

S68 FOR 27s1 TO LEN Nes 
37@ BEEP te ere Y fz} 
388 NEXT 


PIANO 

It would be good to be able to play the Spectrum as a piano. The 
next program allows you to do this. It uses the INKEYS command 
to scan the keyboard to see which key you press. I've written it so 
that you have a choice of three octaves with the note ‘C’ being on 
the 'T’ key in each case. A pictorial version of your ‘piano’ keyboard 
is presented on the screen to help you remember which keys go 
with which notes. You can think of the letters O to P as the white 
piano keys and the numbers above them as the black sharps and 
flats. The Spectrum was designed to play a fairly good ‘even 
tempered’ scale, which is rather like that on a real piano, so you 
should get reasonable (if rather quiet) music from your ‘piano’. 


210 REM PIANO 
28 INK 7: BORDER @: PRPER 2: < 
LS 


38 PRINT AY S,122; :INVERSE 12; °P 
IRNOD" 

48 PRINT AT 5,8; “YOUR PS Taaes 

WHITE KEYS ARE TRESS F 
ROM ‘O' TO “Pir. 


S@ PRINT AT 12,0; “PRESSING ‘Zz’ 
WILL GIVE A HIC GCTHVE. “X* 
AY 36.8; INVERSE 1: °P 
RESS “U' FOR VIBRATO AND “h’ To 
SHITCH FT OFF 
PRINT AY 13,.@; INVERSE i: “Pp 
RESSING 'G' PUTS” HID C GN ‘T* A 


GAIN“ 
G@ LET K=@: LET K=8.5 


Sse Pp £3] 
188 oe VISUAL DISPLAY 
3138 


ws 
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_i8@ PRINT ; INVERSE i:@F i6,4;% 
a; AT 26,6; coke i@,5;“E°S AF 3a 


28, ; x 
133 PRINT PAPER &; AT 8,5; "2"; ArT 
8,77 "S"j;AT 8,5; "4*; a7 § is; : 

AT &.15:. "7": at 8.19: "oO" AF 5.235 


14@ IF INKEY &="“2* THEN LET R=1e 
i15@ IF INKEY¢="X" THEN LET KR=-2 


16@ IF INKEY#$="C" THEN LET K= 
17@ IF INKEY¢=“U"“ THEN LET x 


fa 
18@ IF INKEYS=“M" THEN LET x= . 


7190 IF INKEY$="2" THEN BEEP x. - 
“2ee@ IF INKEYS="S3" THEN BEEP x, — 
“22@ IF INKEY¢="4" THEN BEEF x. - 
“Be IF INREY$="6" THEN BEEP x2 


23@ IF INKEYS="7" THEN SGEEF x, 
Bae IF INKEY¢="“S" THEN BEEF x, 
*3s0 IF INKEYS$="8™“ THEN BEEP x, 
*See IF INKEY€="®" THEN BEEP x, -— 
2?7@ IF INKEYVe="U" THERM BEEP x. _ 
j26@ IF INKEY$=“E“ THEN BEEP x, - 
2906 IF INKEYS$="R" THEN BEEP x, — 
SOG IF INKEYS=“T" THEN BEEP xe 
“B10 IF INKEYS="¥“ THEN SEEP x, 
.p2e If INKEYS="U" THEN BEEF x4 
SO@ IF INKEY$="“I"“ THEN BEER x,5 
3468 IF INKEYS="0O" THEN BEEP x7 
IF INKEYS="P“ THEN SEER x.9 
GO re ise 
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The program asks you which octave you want with a choice of 
either having Middle C on the ‘T’ key, or the octave below this or 
the one above. Of course, there’s nothing to stop you rewriting 
lines 140 to 350 so that touching other keys produces different 
notes. 

Finally, the program asks you if you want ‘vibrato’. This sets the 
note’s duration to 0.03 seconds instead of 0.3. Experiment with 
other duration values to see the effect. | found that durations much 
longer than about half a second made it too slow to play, and much 
shorter than three hundredths of a second was too ‘clicky’. You 
may like to think of a way to introduce a change in tempo. You'll 
need to have the duration of each note vary to produce variants like 
‘slow,quick,quick’. Try a subroutine with aGO SUB command. This 
would need to do something like play the pressed note at the basic 
duration and then follow it with two more notes half or even a 
quarter as long as the first. But don’t forget that subroutines take a 
little time to execute, so the whole program might start to feel 
rather unresponsive if you add too many things. 

The Spectrum will allow not only fractional durations, but 
fractional note values as well. This might come in useful if you want 
to tune your ‘Spectrum organ’ to another instrument. This would 
be easy to do. If you add the lines: 


355 IF INKEYS = “K” THEN LET k=k+0.05 
356 IF INKEYS = “L” THEN LET k=k—0.05 


then the notes you play will be a fraction sharper or flatter with each 
press of either the ‘K’ or ‘L’ keys (’K’ to sharpen, ‘L’ to flatten). You 
could use this facility to produce fractional note pitches to play 
‘oriental’ sounding music, with 16 or more notes in ascale, instead 
of the usual 12. 


OTHER EFFECTS 

You can do more with your Spectrum than just turn it into a piano. A 
visual display of musical notes can be produced. To do this we'll 
use the Spectrum’s ability to define new characters discussed in 
detail in the games chapter. The MUSIC WRITER program forms 
the basis of a longer program which allows you to type in your 
music much as you did in MUSIC PLAYER as letters, numbers and 
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# signs, but this time it turns each note into a crochet, quaver or the 
like on the screen, printing it on the correct stave. You can change 
this program so that as you play your Spectrum like an organ or 
piano, it prints the notes on the screen. 


SLA EAC SO EVR SES 


se 


1@ REN MUSIC WRITER 

2@ PAPER 6G: INK @: BORDER 7: ct 
LS 

3@ LET X=a151 

4@ REN DRAW STAVES 

S@ FOR y=2 TO S 

G@ PLOY @.X%: DORAN 2S5.28 

FA LET xX=x-8 

8@ NEXT ¥ 

o8 FOR A=e Toa F 

198 RERO + 

22@ POKE USR “L“"4A,7 

128 NEXT A 

253@ FOR B=e8 TO 7 

148 READ OT 

45@ POKE USR "KSB, 7 

16@ NEXT B 

APR PRINT QVER 1; AT 3,3; "L°3AT 
4,3; °K" 

188 BEEP @.25,8 

19@ REN TOP OF NOTE SHAPE 

POA PATA O,4.,7,.5,4,4,48,¢8 

2i® REN BOTTOM OF NOTE SHAPE 
ona? PATA @,68,154¢.134,134,56.8, 
2se sTrar 


ADDING SOUND EFFECTS 
There’s a good chance that you are interested in playing games on 
your Spectrum. Can the computer give the added dimension of 
sound to games? Can it make sounds like phasors firing, footsteps 
or train noises? The answer is both ‘Yes’ and ‘No’. It can produce 
some fairly useful noises which will enhance your games. 
However, if you expect the sounds to be as good as those 
produced by arcade machines, I’m afraid you'll be a little 
disappointed. 
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PHASOR FIRE, PHASOR FIRE 2 and PHASOR 3 give three ways 
of making a suitable sound for a space shooting game, and 
WALKING shows how you can incorporate sound with movement. 
Note that the first graphics character in line 140 is an L, the second 


isak. 


PRIN? AF 23e.o:” 


REM PHASQAR FIRE 
LET O=-8@.8125 

FOR xX=1 TO 2 

FoR Y=d FO 16 STEP 


h) 


HEXYT x 


REM PHRSOR FIRE = 
FOR xX=-18 FO & 

BEEP @.8325,%X 

NEXT xX 

FOR YW=8 TO -5 STEP -i 
BEEP @.8125.Y 

NEXT ¥ 


REN PHASOR 3S 

FOR X=5 Ta 2@ STEP 1.5 
BEEP .@&5,.N 

NEXT X 

FOR Y=26 TO 5S STEP -i.5 
BEEP .&as.yY 

NEXT 

PAUSE 38 

RUN 


REN WALKING 

FOR A=-8 TO F 
REAR xX 

POKE USA "LER. 


FOR T=@8 TO 31 

PRINT BY PAT." ": 

NEXT T 

FOR C=8 FTO 21 

PRINT AT 2@,0; "#": PRUSE 2: 
€"°° Bause 3: PRI 


NT RY 328.0; 
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356 SEEP @.82, 38: BEEP BA. Re, 4H 
16@ NEXT C 
GO TO 1ae 
288 REN CATR FOR 2 VERSIRNS OF 
198 BATA 24,36,.153,126,24, 188,141 
32,4,24,36,153,126,24,38,09,32 
206 STOP 

Another useful routine is the program which simulates a bomb 
drop. This makes the frequency of the note fall from around the 
highest pitch available to one some 20 semitones lower. The rate 
of fall is fast at first, but gets even faster to give the impression of 
the bomb speeding up as it gets closer to the ground. 

41@ REM BONE 

3Be FOR X=69 TO 55 STEP -#.5 

3@ BEEP &.85.x% 

NEXT X 

5@ FOR Y=8 TO 2e 

6@ BEEP @.@1.,.-1@: BEEP @.@1.-5 
@: BEEP &.81.-68 

7@ NEXT ¥ 

More elaborate micro computers offer not only the ability to play 
single notes, but also up to three voices at once, with variations of 
frequency (called frequency envelopes) and perhaps a white noise 
generator to create surf-like sounds. Your Spectrum can’t match 
this, but you can use some tricks to go beyond simple BEEP BEEP 
sounds. FREQUENCY/TIME SHAPES and FREQUENCY SHAPES 
show how you can produce frequency envelopes of sorts. 

In the first of these programs, as well as being able to vary steps 
between the two notes, you can also vary the duration of the note. 
In this example it goes from Middle C to the whole note above 
starting with a fairly short duration and getting shorter as it 
approaches the final frequency. 

H 


FREQUENCY/TIME SHAPES i 
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18 REM FRESUENCY -TIMNE SHAPES 


eR INK YY: BOARDER &: FPRPES 32: £ 
SB LET DuUR=8.@5 

48 FOR F=8@ FO 2 STEP 8.5 

S@2 BEEP DUR.F 

€@ DRAW SBSseDUR,. 2Ber 

7 LET DUR=DUR-&. 865 

GE NEST F 

S@ GRAW 56.6: BEEF @.5.2 
186 GO TG i886 


The second program ramps up (or down) from a given frequency 
to the next in steps which you define in line 40. Instead of the 
sound jumping from one pitch to the next it slopes up to it or down 
to it by incrementing the pitch in fractional values. 


f ‘ 

? \ 

2 BS 

? Xx 

i ‘ 

ri \ 
- \ 
< ‘, 
2 sy 
ra s 
Seer ald bake 

28 REM FRESUENCY SHGPES 
#22 SGRRER 4: PAPER 4: OLS 

Se REN YOU OGULpD CHANGE FHE 

VALLIES OF F,FE,SND S. 

4@ LET F=8: LEY FE=3 LET S=2 
S@ FOR =F TO FE STEP 3s 
BA DRAW SSsh. Shs 

FHS SEE S.8S.xK* 

SBS NEXF & 

Be OAR SO.8: SEE @.2.FE 
LSS FOR W=FE TO F STEP -= 
3186 DRAW BSxh,. -2axy 
32@ BEEP ©.83.Y 
I13G NEXT ¥ 


ig4@ 560 TH 148 
You may wish to experiment with these envelopes, putting 
several together to form more complex sounds. Doing this sort of 
thing makes the Spectrum sound even quieter, so | strongly 
recommend the use of an external amplifier. 
The final program in this chapter, MUSIGRAPH, links together 
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the Spectrum's sound and colour capabilities. It sounds notes of 
random pitch and duration (with fixed limits). The higher the note 
the higher up the screen a blob of colour is printed, and the longer 
the note, the further to the right the blob is printed. The result is a 
collage of colour where what you see corresponds to what you 
hear. 


VS FGRAPH 
SR &: PRPER 8: Cis 
FOR =@ TO 32 
4@ LET NOTE=RND 20 
S@ LET GUR=RND s2.4 
6B LEY INK =iRNOSG) +4 
78 PRINT INK INK; AT 2@-NOTE,. xX; 


6@ BEEP DUR,.NOTE 
GB NEXT X 
182 CLS : 66 TO 32 
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Using the Spectrum in 
business 


Like all computers, the Spectrum by itself can do nothing. With 
appropriate software a vast variety of tasks can be handled. Users 
regularly buy software with many features they do not want, but 
which do the basic work to be done. 

As time goes on (if the system is good) they gradually come to 
use the features, and before long they cannot understand how 
they got on without them. Some examples of what a computer 
system can do are given shortly. These examples show that 
computer systems can be an enormous help — if they are organised 
properly. 

As | pointed out in the first chapter, computers can do anything 
which can be reduced to a set of elementary commands which 
they can act upon. They will always act exactly in accord with the 
information they've been given. For example, if your invoicing 
program contains a section to ‘send a reminder to everyone who 
has not paid their account this month’, some people will be getting 
letters threatening legal action if they don’t pay £0.00 AT ONCE. 

The degree of care required in producing and using computer 
programs depends upon the application. The effort required to 
ensure absolutely that the space shuttle goes up, rather than 
down, would be wasted on a new and better anagram game. 

Computer applications can be grouped into a number of (not 
clearly delimited) classifications: 


BUSINESS AND DATA PROCESSING. Usually fairly simple 
operations are carried out on relatively large amounts of data. Stock 
control, for example, requires virtually nothing more difficult than 
addition and subtraction; but it is important to find the required data 
as fast as possible. Most of the time taken to run a program is used 
up in handling information held in memory. A well-designed 
business system will comprise modules which can interact with 
each other. That is, a sale should cause changes in your ledgers and 
your stock; and invoices, advice notes, and the like should be 
produced. There are advantages to having your word processor 
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program interact with your business programs. Everything should 
be as foolproof as possible. In particular, human error should be 
expected and checked for when this is feasible (for example, the 
program should check that entries are, in Some sense, reasonable). 
Such business systems are few and far between, but they are 
worth paying for. 

Good software is expensive to produce and maintain. One 
Spectrum package which is available is a very sophisticated project 
planner, which is claimed to be at least as good as any similar 
program on the market. It costs a good deal less than other 
planning programs; yet it costs more than a 16K Spectrum. When 
looked at in perspective, the careful user will spend more on 
evaluating the package than the package price (software 
evaluation may require several days work by a highly qualified 
person). It will take time to tell if users will be prepared to pay the 
price which will be necessary to stimulate production of really first- 
class software. 


WORD PROCESSING. With an add-on keyboard, the Spectrum is 
capable of being a very respectable word processor. A word 
processor allows you to type in text and see it on the screen in raw 
form. You can edit, insert, delete, or move text to your heart's 
delight. When the wording is right, you can print your text, neatly 
formatted. Then you can go back and make further changes. 


SCIENTIFIC OR ‘NUMBER-CRUNCHING’. Calculations can be 
very complex. Relatively little input, output, and memory may be 
required, but much CPU time is spent on actual calculations. 


TECHNICAL APPLICATIONS. The Spectrum can be used to 
simplify life for people such as architects, planners and engineers. 
Elementary programming skill can pay off for these applications, as 
many one-off and non-standard calculations arise. Standard 
technical software also exists, and is often very worthwhile. 


REAL-TIME AND CONTROL APPLICATIONS. In this group, the 
computer is plugged into the real world. The result of a process is 
not a printout, but an action, such as switching motors on and off. 
In many cases the programs are time-critical, that is the result must 


Using the Spectrum in business 57 


be ready at exactly the right time, neither too early nor too late. This 
is unlike most other applications which can proceed at their own 
rate. 


COMMUNICATIONS. Computers can be used to communicate 
with a variety of devices, including, in particular, other computers. 
This can be done over ordinary telephone lines. Many interesting 
possibilities arise. 


The Spectrum is well-suited to business applications because itis a 
powerful machine at a very reasonable price. If a business is to use 
a computer, there are obvious and real advantages to owning one. 
Just about everybody who has used a typewriter has uses for a 
word processor. The Spectrum may emerge as a much-used real- 
time controller, and will show its capabilities doing useful scientific 
work. 

It is generally recommended, quite rightly, that you should look 
at the software you need before deciding which computer to buy. 
Many people have been caught out by buying computers with 
impressive specifications only to discover that suitable software 
was. not available, and would be somewhat expensive to have 
produced to order. This attitude should perhaps be modified 
slightly in view of the enormous market which the Spectrum has. 
Whatever you need is either available now, or will probably 
become available in due course. Spectrum business software 
tends to be fairly cheap compared to similar software for other 
machines. However, lengthy demonstrations, after-sales support, 
and custom modifications are rare. When selecting software for 
the Spectrum, keep in mind that the quality of packaging and 
advertising will not necessarily correlate with the quality of the 
software. Recommendations from knowledgable users and, to a 
certain extent, magazine reviews are the main sources of 
information. 

Even if you decide not to buy commercial business software at 
the moment, there are a number of ways you can use the 
computer to help you using programs you've written or adapted 
yourself. 

The balance of this chapter is five programs I've written to give 
you an indication of the ways in which the Spectrum can help you in 
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asmall business, or at home. The programs may not fit your current 
needs exactly, but should be fairly easy to modify to make them 
suitable for you. 

The programs are: 


PERSONAL ACCOUNTS /— which allows you to specify any 
number of recurrent costs and — like the other programs — contains 
a menu to allow you, among other options, to save the current 
state of your accounts on tape. 


DIARY — which sorts entries into date order, and prints them out on 
demand. 


TELEPHONE DIRECTORY — which accepts names and telephone 
numbers (as might be expected), searches rapidly through the 
directory for a requested name, and can be updated and expanded 
at any time. 


DATABASE - this stores up to 130 items of 24 characters twice 
(on a 16K machine; a much larger file can be created on a 48K 
machine), in a way which allows them to be accessed by one of 
two criteria. The program is set up to store a collection of 130 
records and can print out a list of records in alphabetical order by 
artist name or by title, and allows searches to be made through 
either list. It can easily be adapted to handle other requirements, 
and, if only a single file is required, and less characters per file are 
needed, can handle many more items, while still retaining the order 
and search facilities. 


FINANICAL MODEL/SALES PROJECTION — one of the most 
popular packages of business software in the world is Visicalc, a 
spread sheet calculator which allows the user to feed in current 
figures, then make future projections based on those figures. This 
program performs two of the tasks of Visicalc: it analyses the 
pattern of sales figures from month to month (or between 
whichever time periods you decide), and then allows those figures 
to be projected, with the projection based either on the average 
sale per month for the period when results are known, or on the 
sales results of the last known month. 
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These programs may well need modification to be of use to you 
in asmall business, or for home use. The main reason for including 
them in this chapter, apart from their immediate use, is to show the 
ways business software can be written. Business software rarely 
contains ‘clever’ coding as do many arcade games programs. The 
approach is usually more methodical and less exciting. The tasks to 
be accomplished by a business software package can usually be 
clearly delineated before you begin, whereas a game may evolve 
as the program is written. 

You'll find it relatively easy, once you know what you're trying to 
achieve with a business program, to write the program, or to get 
someone to write it for you. 

We'll now look at the programs one by one, and see what we can 
learn about writing business applications software from the 
listings. 


PERSONAL ACCOUNTS 
When you first run this, you'll see a menu appear which reads as 
follows: 


Current balance is £0 


ENTER 

1 —To start from scratch 

2 —To modify payment schedule 
3 —To deposit money 

4-—To save on tape 

5—To stop 


It is a good idea to provide a menu like this to ensure that the 
program can be used without either elaborate instructions, or the 
programmer leaning over the shoulder of the user explaining what 
to do next. It would be reasonable to assume that the first time you 
run this program, you enter 1, ‘To start from scratch’. When you do 
this, you'll see: “Enter the number of items which must be paid for 
each month”. Here you’input the number of recurrent costs you 
have, such as your mortgage, car payment, any hire purchase 
commitments, your credit card, other standing orders, and the like. 
It is best to be over-generous with the number of categories when 
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you first run this, as it is impossible to add later ones once you've 
started using the package. 

If you enter 4, as the number of recurrent costs (as is shown in 
the sample run which follows the program listing), you'll then be 
asked to enter, one by one, the ‘name of item’, and then the 
monthly cost of this. Names of items, and their costs, can easily be 
changed later on. Once you've run through the list (adding ‘blank’ 
items for spare numbers you've given yourself in excess of your 
immediate needs), you'll be given the chance to modify any of 
them you wish: ‘If this is correct, press ENTER. If there is an error, 
enter the number of the item you wish to change.’ 

If the program does not yet have your bank balance, as it will not 
when you first run it, it will instruct you to ‘Enter last known 
balance’, and then ‘Enter any deposits, including salary, one by 
one. Terminate entries by entering “E”’. As you enter any deposits 
you've made, the balance figure — shown at the top left hand corner 
of the screen — will automatically increase. Once you've added all 
your deposits, and signalled this to the Spectrum by entering “E”, 
you'll be given a further choice: “Enter 1 to subtract all of current 
payment schedule, or 2 for menu”. If you enter 1, the computer will 
subtract the total cost of all the items you listed earlier as your 
recurrent costs. It will print up the balance before, and after, the 
month's costs have been subtracted. 

You will then be back at the starting menu, by this time the 
‘Current balance figure is . . . ' is not (hopefully) zero, as it was the 
first time you ran the program. All variables within a program are 
saved with the program when it is saved on cassette. However, 
starting the program next time with RUN or CLEAR will wipe out 
the contents. The last line of the program (GO TO 430) ensures 
that, after the first time you use the program, it will start running 
automatically, retaining your present balance. 

Notice, when you run this program, the use of INK and FLASH to 
highlight parts of the program. The colour and other graphic effects 
should be used whenever necessary to cut down on the possibility 
of operator error. As well as this, input should be ‘error-trapped’ 
where possible, so that a user error does not cause the whole 
program to crash. For example, line 325 rejects a null input from 
line 320. A null input (just pressing ENTER without previously 
entering a number) would cause a crash at line 340. Similarly, 
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although the program asks (in line 310) for “E” to be entered to 


terminate the entry of deposits, the program will also accept “e” as 
there are no instructions within the program to ensure that CAPS 
LOCK has been engaged. 


41@ REM PERSONAL ACCOUNTS 

32 LET BALANCE = 

4S 60 TO 432 

P@ PRINT °’‘’"Enter the number 
af items which Bust be Paid Far 
e@ach manth 

3@ INPUT NUMBER: CLS 

4@ DIM ASINUMBER, 12) 

S@ DIM AINUNBER} 

6@ FOR A=3 Fa OSE 


LA 
Be tN NPUT ASTD) 
S@ PRINT AT FA-1,0; "And hee muc 
h is “SV AS{(AL,"each Benth? tin £) 


1@@ INPUT ATA! 
4186 PRINT AT AR- 1-8; A; TRE 3; RSA 
IS TRE 15; ‘fl; A(R: 


128 NEXT FA 

43@ PRINT ‘“IF this is correct, 
Press", FLASH 1; "ENTER"; FLASH 
@;“. IF there is an errar,”","“ent 


a2 


er the number of the item", “you 
wish tea change." 
14@ INP 
35@a@ I Bs="" THEN Go Te ahr 
6@ LET B=VAL BS 


i 
mas PRINT “Enter new mame For i 


te 3B 

ise INPUT Re 1B} ; 
39368 PRINT “And hew much Is “;AE 
iB} ,"“each month? tin £3° 

2aea ae ATE) 


22¢e FOR Asi TO NUNBE 
23@ PRINT A; TAB eRe CAD ; TASB 15; 


2€e@ C 
265 IF BALANCE <>@ THEN GO TO 23 


a 
Aes PRINT '' "Enter tast Anorn bh 
nce’ 
“288 ite all BALANCE 


LS 
soe PRINT RAT @,8; "2°; BRLANDE 
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341@ PRINT - renter anu deposits 


, including", "satary, one by ane 
" "Terminate “entries by entering 
"> FLASH 3; “E" 


sbe@ INPUT the 
525 IF @¢="" THEN GO TO 328 
=" IF @$="E" OR @s$="e“ THEN GC 


360 
3a0 LET BALANCE=BALANCE+UGL Os 
TO 3ee 


B5a@ GO Q 

86a INPUT "Enter 43 te subtract 
alt of","current paypent scthedui 
e*, "ar 5 for genu’;t 

365 IF C=2 THEN GO TO 45¢@ 
mrd ier SPEND=@: FOR A=32 TO NUF 
3a8 Loy SPEND Sse Enea hs? 

33a EXT 

4aea LS 

41a PRINT ‘Ra tanrce befare cur 
rent’,“cests was £°; BRLANDE 


422 LET BALANCE =BALANCE-SPEND | 
43@ PRINT ‘‘“Current balance is 


££"; BRLANC 

4240 PRLUSE 208 

45@ PRINT *“‘ENTER™ 

462 PRINT °'43 — Toa start from $s 
crat 


tch"™ 
476 PRINT ("2 - To modify payme 
mt schedute*™ 
462 PRINT ‘"“S - Te depaesit Bane 
485 PRINT ‘"“4 - To save oan tape 
49@ PRINT “"S_-_To stop” 
TF G=1 THEN LET SALANCE=2@: 
C=+2 THEN GO TO 2:19 
F c=3 THEN GQ TO 38a 
Baa IF G=4 THEN SRVE “ACCOUNTS” 
C=5 THEN STOP 


Sample run: PERSONAL ACCOUNTS 


Current balance is E£LGAe.F5 
ENTER 

4 - Ta start from scratch 

2@ - To modify Payment Schedule 
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3S - Te deposit money 
& - Ta save on tape 
5S - Ta stop 


CREDIT CRRD £1235 
MORTGAGE £245 


CARR 
TRANSPORT £iF 


ZF this iS correct, press 
ENTER. If there is an error, 
emter the number of the item 
YOU B8iShR to cCrRanMGde. 


PL) 10) bes 
iy) 
a 
cd 
o 
pe 


£1342.75 


Enter any depesits,., inctiudiss 
Salary, ane by one 
Terminate eniries by eniering £ 


Batance before current 
Costs was £1542.75 


Current batance is £983.11 


ENTER 
2 - To start from scratch 
DIARY 


The diary program can be used, of course, for any scheduling 
system and although it deals with days at the moment, it can be 
fairly easily modified to work for hours of the day if your needs so 
dictate. 

This is a much simpler program than any of the others in this 
chapter because its task is fairly easy to outline: (a) accept a date 
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and an event; (b) sort the events into date order; and (c) print them 
out on demand. 

However the program is not as simple as it could be due to the 
way we write dates. Although this program will only accept dates 
in one form, as the number of the day, a slash (/), the number of the 
month, slash, and the year, a moment's thought will show that if 
the computer just ignored the slashes, and sorted the dates by 
their size, it would put the 12th of December 1901 ahead of the first 
of January 1999 (121201 is a bigger number than 10199). 
Therefore the program must be able to manipulate the date in such 
a way as to ensure that earlier dates come out as ‘smaller 
numbers’, but can still be printed in a form a human being will 
recognise. A further problem comes from the fact that the day can 
be one or two digits, and the month can be one or two digits. The 
computer must be able to add a leading zero to single digit months 
or days (and, of course, must know when such a zero is needed). 

The routine which does all this lies between lines 40 and 80. Line 
40 asks you to enter the date, given an example of the form 
required. Line 50 sets another string (AS) equal to the date, so it can 
be simply printed in a few lines time. Line 60 checks to see if the 
second element of the date string is a slash, and if it is knows that 
the day is a single digit, so adds a zero at the beginning. Line 70 
checks to see if the fifth element of the date string is a slash (which 
it will only be if the month is a single digit) and if it is, adds a zero 
before the month digit. Then, in line 80, the date is rearranged so 
that the year comes first, followed by the month, and then the day. 
(If you're reading this in America, by the way, you'll have to swap 
the 4 TO 5 with the 1 TO 2 to overcome the fact that in the US, 
the month is entered before the day when the date is written 
all in numbers; you should also change the 25/12/84 in line 40 to 
12/25/84). 

Line 90 prints the date in its original form (which is why we set 
BS equal to the date you entered) in the top right hand corner. You 
are then asked to enter the ‘event’ you wish to record next to that 


date. As in the PERSONAL ACCOUNTS program, you now have ~ 


the ability to accept the entry in its present form, or reject it to enter 
it again. 

Assuming that you have accepted it, the program makes the 
element of the D& array, which is holding your diary, equal to the 
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date (in its computer-readable form) and the event. 

The routine from 220 then sorts out the contents of the diary, 
and prints them in a form you will understand, with line 330 turning 
the date back into a form you will recognize. Underneath the 
program is a short sample run. As an exercise, you may want to add 
a menu —as in the PERSONAL ACCOUNTS program — to allow you 
to save the diary as it is, or amend it. Evenin its present form, if you. 
save the diary on cassette, and then start it with GO TO 40 (rather 
than RUN), you'll retain all the previous diary contents, and be able 
to add additional ones which will automatically be sorted into date 
order 


a® REN OYARY 
2@Q DIN Diese, te: 
Be FOR BP=12 Ta 2ee 
48 INPUT "Enter date as 5-32 
“843 78s 
Se lL LET RS=hs ; a 
ae IF Asgsiaie=et.«.* THEN LET ASs="2 
ae 
78 IF Gsisdi=et-" THEN LET Ag=AS 
t 72 3? ¢°B' +S 4 ‘TO 3 
LET A¢=Asi? TO 81+hAS(4 TO S 
)+8ecr" aa 2} : _ 
B,@; “Date: “";B3_ 
188 BRINT ''"Enter scheduie ite 
m"“," (No more than £22 Letter *® 
sie INPUT ¢¢ 
ibe CLs 
i3@ PRINT AT @,8;8f:;"°-"; ts . 
34@ PRINT ‘'’"EF this is cerrectt 
,press “ INVERSE i; “ENTER: INV 
ERSE Paget imcarrect, ress “; 
LASH 32; °*E*"; LRSH @,"then ENTE 


45@ INPUT Es: tCLis 

46@ IF Es<>o"*™ THEN Gao FC <8 

L?e = DS iD} =AStCS 

2188 INT ‘“‘'"Fress “"; ENVERSE 12 
; "ENTER", INVERSE @;° te enter si 
ext item.",."oOr any tetter, then 
ENTER, to", Bran t aut schedute”™ 
i138 caged ES: chs. 

Bee IF E¢g=""* THEN NEXT DB 

2382 PRINT PAPER en FLASH a Ere 
ase stand bye. =": RUSE 1ae eLs 
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2ee@ IF &>G THEN Go TO 
270 IF DsiBisbsigs FR 


2 
2608 LET 2=233: GoTo 258 


2O@ LET O8=DE(Z: | 

Bea Lb $ (2) =De iB) 

310 LET G$(B} =o8 

3Be GG TO 258¢ 

B3@ PRINT DSiG. iS TO 833°": DS 
Gis TO 43; "7"; Dsieri4 FO 23;"-" 
7D$(G) (7 TO 3 

34@ LET G=G-i 

BS@ IF G>@ THEN GO To 248 


Sample run: DIARY 

@2 02784 -DENTIST 

@3/@4-/84-BuUY NEW COAT 

@?7@4 /84-SMITHFIELD 

@5 ,@6 -64-D0TCTOR 

12/712 +84-CHRISTMAS SHOPPING 
TELEPHONE DIRECTORY 
You should be able to see a link between DIARY, TELEPHONE 
DIRECTORY and the program which follows it, DATABASE. All 
three — in essence — accept information from the user, sort it in 
some way (or ways in the case of DATABASE) and then either print 
it out in order or allow it to be searched. The structures of the three 
programs should give you a number of clues as to how you can 
construct a filing/sorting/ access program to suit your own needs 

The directory menu outlines the possibilities 

Enter one number: 
—~ To start new directory 
- To add new names 
-~ To search for number 
- To save directory 
- To print directory 


nae @ fy 


- Fo stop 
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Sample run: TELEPHONE DIRECTORY 


ENKEY 1311-8888 
JOHN 3444-777 F 
MAGGIE 222-2222 
FIM 3433-11232 
URTRH 444-5555 
XENON 655-8585 


DATABASE 

This program, which is really an elaborate form of TELEPHONE 
DIRECTORY, is designed here to hold a collection of musical 
records, and store them in two files, one by name of artist, and one 
by title of musical selection. It is included in this section because it 
can be used as a business filing system. As with other menu-driven 
programs, the menu outlines the possibilities: 


1 — Create new file 

2 — Add new items 

3 — Print out by artist name 

4 — Print out by title 

5 — Search for an artist 

6 — Search for a title 

7 — To save database on tape 
8—To stop 


The program asks you to enter ARTIST/COMPOSER, then 
TITLE, then CLASSIFICATION. Classification is your own filing 
system reference. The program does not sort using this, but simply 
appends it to sorted lists, so looking for a title will produce the title, 
artist and classification; and looking for an artist will produce artist, 
title and classification. The FS array holds the file which is sorted by 
artist, and the title file is held in the E% array. When searching for an 
artist or a title, the program only compares the first four letters of 
the name. The printout shows a tiny DATABASE of five records, 
printed out in artist order, and then in title order. 


2@ REN DATRBEASE 
2a PRINT "“"Setect am @rtioan 


2S PRINT “"3 - Dreswie mew Fal: 
S@ PRINT ~"2 - Red new itexzs 
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48 PRINT °"S - Print aut by a: 
S@ PRINT “4 - Print out by ti 


z TE 
6@ PRINT ‘'"S -— Search For an a 
Frist" 
PRINT °"‘G& -— Searth Far a ts 
tile* 


S@ PRINT ‘"F - To save databas 


338 CLs 

32@ IF 8=1 FHEN GO SUR BAB 

48@ IF Ase THEN NEX ud 

44@ IF A=s=3 THEN GG SUB S36 

45@ IF A=4 THEN GO SUS are 

360@ IF A=5 THEN GQ SUB Fis 

47@ IF A=6 T N GC SUB Be 

4B@ TF =F THEN SAVE "“DATR" 
49@ IF R=8 THEN STOP 

2ee SO TO 22 
Pe ried DIM Fe (isde,24} BIH EsSs(ise 
2+ 

2P@Q POKE #5692.8 

238 FOR w=1 FTO 238: cL 

@ PRINT AT 8,8; INK 2; “Enter 

“7" to terminste*’,"new entries” 
25@Q PRINT AT 18,138; "Ttem nupbe: 


5 FLASH 4; 
cotae "Enter artist+-ctompose 
eve IF Ag="Z" THEN Go To sae 
BBQ PRINT “Rs 
292 INPUT “Enter titte “78 


5 
3320 INPUT “Enter classi fFicatior 


rc 


“Cs 
SSQ PRINT ““IF this 38 farrect. 
Press "“; INVERSE 2; "ENTER'; INU 
ERSE @,"ifF nat, Press any key.” - 


Zs 
35@ IF 2%<3"" THEN GO TO 24H 
36@ LET Fil) =Ree hs UT hes UtOS 
3S7@ LET ES iui =Tee": “ASe: “+OS 


LS 
4@@ PRINT INK 1; FLASH 1;"Pieas 
e stand by.--sSarting ” 

4@5 LET G=.i: LEY B= 
43@ LET =i 

44@ LET B=27i1 
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45@ IF 8:26 THEN LET G=G-1i: IF G 


3 
455 IF G=@ THEN GO FO See 
4608 IF FSiBi<«Fgi23} THEN GO TO 


qe, 


=Z+1 

550 IF B2G THEN LEY G=G-2: IF G 
+@ ined 60 TQ oF 

56@ IF G=0@_ THEN CLS Ba To 2e 
Son IF EsiB) CEStz) THEN 60 Ta = 


Se 
SG@ LET 2=Z31: GO To 54a 
@ Z} 


63a M=i TO J 
640 LPRINT Fs {mM} 
65@ NEXT 
6606 RETUR 
67@ FOR M= oO uJ 
68@ LPRINT EStM2 
63e@ xT 


NE M 
7e@e@ RETURN 
718 PRINT “Enter name of artist 


7208 hada NS: LET N$=Na+" °F 
soe FOR MN=1i TO 41! 
40 IF Fisch t To &4)=oNget FO 423 TF 

HEN ba wae 4 77a 

seo PRINT Meprtist not Found’: P 
AUSE RETURN 

7728 PRINT F¢tM) 

78@ PAUSE 8 


@@@ PRINT “Enter tittle 
61e eg NS: LET NesNSe" sn 


=i TO 
ese I Res thy t TO 43=N8t TO 4) T 
HEN oe TO 868 
xT 
85e@ PRINT cee net found": PR 
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Sample output from DATABASE: 
BERTLES: HELP: 008 


STONES - RAINBOW: BES 
VIVALDI: FOUR SEASONS: ES 


FRNT Be MOZART: K36?7 

ie Chee ASONS: VIVALDI-E2 
:BEATL ES: 008 

RA TNBOU- STONES: DES 

WALTZ: CHOPIN: 3442 


FINANCIAL MODEL/SALES PROJECTION 

As | explained at the start of these programs, the FINANCIAL 
MODEL provides a crude version of a few of the facilities provided 
by spread sheet calculator programs like Visicalc. This program is 
designed to take monthly sales figures, or number of rejects, or 
turnover in staff or any other count of an event which occurs fairly 
regularly, and has been recorded at regular intervals, and from this 
information extrapolate future monthly returns, assuming all other 
factors remain the same. 

When you run it, you'll first be asked if you wanta ‘hard copy’ (i.e. 
dumped to the printer) of the program's output. If you enter 1 for 
yes, all the important output of this program (which will not include 
all the user prompts) will be LPRINTed, as well as being displayed 
on the screen. Next you'll be asked: “For how many months are 
figures available?”. Change months to days, or years or whatever 
time period you are working to. You will then be asked to enter the 
figure for each month. As it is set up at the moment, the program 
can cope with the input of 19 months. Change the ‘A — 1’ at the 
start of line 100 to a zero if you have more than 19 months’ data. 

The Spectrum will then work out the approximate change from 
month to month. Comparing month two with month one, month 
three with month two and so on. The average percentage change 
will then be given. 

You are then able to make an extrapolation of results, specifying 
the number of months for which you want figures projected, and 
whether you want this projection based on the last month for 
which you have a figure, or on the average result per month. 
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Once this has been provided, the menu allows you a number of 
choices: 


1 —Torun the projection again (which means you can change 
the starting figure from average to last month, or vice versa, 
and over a longer or shorter period of time) 


2 —Torun through output again, but without entering figures 
again (although you'll still have to answer prompts for the 
projection) 


3 — To run the program from the beginning (this wipes all 
current data) 


4 —To save this run on tape (which you'll then recapture by 
choosing option 2 of this menu after reloading) 


5 —To stop 


lf you've run through the program once without the printer 
working, and you decide you'd like a hard copy, use 5 to stop the 
program when you reach the menu, then restart the program with 
GOTO 10 rather than RUN. Next, select item 2 from the menu, and 
you'll get your figures on to the printer without having to re-enter 
them. 


28 REN aE ag lech 


Be SR GUEET ION 
41s Ga ste- rit 
2@ PRINT ‘‘"“For hee pany swenth 
S$ are Figures avaitabte? 


3@ INPUT M: LEY YTorsa 
4@ IF N<2 THEN GO TQ_38 
S@ CLS : DIM AIM): DIM Bim 


F = a 
8@ PRINT AT 20,0; “Enter Figure 
yet month “; FLASH 1; INK 2;FA 


AtAd 
166 PRINT AT A-1,0; BRIGHT 1; F 


APER 31; INK 7; a fe Hth “7; * 
AB (2?7-LEN STRS RIAD); AAY; ae 
285 IF Z=2 THEN LPRINT = Mc 


aM 


Mth “3A; ee. : ay s : 
x78 iad? sTAB {17 LEN STRS AC: 
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449 LET TOT=TOT+A(A): NEXT A 
225 PRINT AT 2@,8;" | 


2 R,B: 

i2@ LET AV=TOT SH: FOR SB=2 FO N 
oo BiB} =(1@@-(A(B-1) s1iBeavA 
44@ NEXT &B 

345 FPRUSE 1¢e8 ” 
35@ PRINTF **- FLASH 1; INK i: 
Difference between panths: “_ 

SS IF #=1i THEN LPRINT “ Differ 
ence between gBonmths: “ 


Se; NK ee 
> INK @;" - e > INT iA#i1A24+,.8)25°R". 
475 IF #223 THEN LPRINT "“Menth ° 
;F-2,"to month "A," - “ad i 
Ap +.533°%" 
28@Q N 


Bae FOR A=2 TO_H ; 
Die LET TOTAL =TOTAL+B tA} 
BBe NEXT A ; 
S30 LET AVERAGESINT iTOTAL siae8~ 
iM#-i}} 7188 
mas PRINT ° INK 23 %------777777 


a a a ee ae een "een ee ce ee, ae Se eee eee 


236 IF 2=i THEN LPRINF ‘!-----7 7 


240 PRINT * “Average change is _~ 
3 INK 2; FLASH 4; AUERRGE; INK @; 
FLASH @;"x" 
aas IF Z=1 THEN LPRINT “Average 

change is “; AVE AGE; “x" 
25@ PAUSE 108 
SSS FRINYT ° INK pene eer crc 


am we ee ee awe a oe ere ee 


ae we Sm em ee eS a ee eee 


change:"™ 

265 IF Z=i THEN LPRINT “Now 8 P 
rojection of change:" 

2?7e@ INPUT “Hoe Bany Benth’ s Pre 


lice ie de you sant? “CO NLINBE 
cee PRINT ‘“Final recorded sant 
as “JAR 3 


ho 3 
29@ PRINT ""overage per month wv 
3@a@ INPUT “Da ou wish to base 


> 


Projection on —~ Finat sponth; 
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Bf ep 2 - Average month 
"36S PRINT * INK G5 teeee seen 
3@6 IF Z=1 THEN LPRINT “-~------ 


ee em mee ee ee ee ee we we we ee ee wee ee ee en ee ee 


G30 LET E=tHisM} AND B=1} +t {i8si 
INT AVI?) AND B=2) 
315 CoaNr *““Month 4, recarded: 


_THEN LPRINT “Month 4 


ry 
33@ LET E=E+AVERAGE sE 100 
2248@,,PRINT “Month “;AF"; Project 


aaINT (£E} 
° 342 TF Z=1 THEN LPRINYT "“Menth " 
$B; “. Projected: “; INF tE} 

* 345 NEXT R 

35e ate i18e@: PORE 23692 ,8 

355 RINT ° INK 2&2; “*-----—------- 


ee ee ee ee 


S56 IF 2#= i THEN LPRINT oo 


i a PRINT * INK 2;. INVERSE 1; "5 
mter your chaice:" 

37@ PRINT ‘TRE 3;"i - To run pr 
ejection again" 

S6@ PRINT TAB 3; "2 - Te run thr 


Ough output again, but 
without entering fF 
agures again" 

vSe@ PRINT TAR 3; °3 - Fé run the 
Pregranm froe the b 
eginnin 

4@@ PRINT TAB 3; "4 —- Toe sare th 
is run cn tape" 


as PaaNT TRE a; "S - Foe star" 


4208 IF Age" “ THEN GO To 418 
430 IF Ag="1" THEN GO TO 268 
442 IF Ag="2" THEN Sune” ide 


a 3 R 
46@ IF Ag=“4" THEN ZAVE “SALES” 
470 IF Ag=“5" THEN STOP 


480 Go Ta 368 
49@ INPUT “Do you want hard cap 
¥ oF eutput? 

PS - RAS s* bas 


S@@ IF zZ<i oR ~Z58 THEN Go Toe aga 
$18 RETURN 
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Part of one output: 


Month i 2348 
Month 2 1456 
Month 3 isée? 
Month 4 1678 
Month 5 ivésa 
Difference between months: 
Month i to Bponth 2 - Bs 
Honth 2 te month 3 - Pz 
Month & ta menth €@ - Fx 
Month 4 to BOnth = - && 
Aversge change is 6.382 
Now a projection ef change: 
Month 2, recorded: a7vaa 
Month s Projected: i312 
Month » Pragected: 2@423 
Month 4, Projected: Bide 
Month S&S, prajectéed: 2304 
Month s Pravected: 2435 
2 - Te Fun Projection aGain 
2B - Ta rurm threugh cutput 
BQainm, but without 
entering Figures 
aGair 


FINANCIAL MODEL 


Oo - TS FUR the Progrsam 


From the beginning 


4 - To Save this run 


om tape 


S - Te stop 


Suggestions for further reading: 


Business Information Processing with BASIC Struble, George (Addison-Wesley 


Publishing Company, U 


BASIC Computer Programs for Business Sternberg, Charles D. (Hayden Book 


SA, 1980) 


Company, Inc., US.“. 1981) 


BASIC Computer Programs in Science and Engineering Gilder, Jules H. (Hayden 
Book Company, Inc., USA, 1981) 


Some Common BASIC Programs Poole, Lou and Borchers, Mary (Osborne/ 


McGraw-Hill, USA, 198 


1) 


77 


Using the Spectrum in 
education 


This chapter is written for those who wish to use the Spectrum as 
an aid in teaching others, such as parents helping their children, ora 
teacher using the computer in class. However, there is no reason 
why you cannot use the programs and ideas, if you wish, to help 
yourself with revision for exams, or just for a little brain-stretching 
exercise. It is quite interesting how much you can learn just by 
trying to write a program which will help others learn. At the very 
least, you may well pick up a smattering of French, Physics or 
whatever, while looking up information to store in a quiz program's 
DATA statements. 

Commercial, educational software for the Spectrum (or any 
other computer for that matter) tends to suffer from one of two 
faults. It is either so simple and general that it is of little use to 
anyone, or is so specialised that it is of use to only a very few. 
Creating your own learning tools with the computer overcomes 
both these faults. You can tailor the program exactly to your needs; 
teaching and testing just those parts of courses which appear to 
need particular attention. The routines and programs discussed in 
this chapter can easily be adapted for your specific needs. 

The chapter will concentrate on programs which give practice at 
basic skills — such as numeracy and (in the case of one program) 
knowledge of French. There are many other types of educational 
programs you could write which could teach new: material, or 
perhaps take the place of time-consuming laboratory work (such as 
a program which ‘combined chemicals’ in specified quantities, and 
showed the resultant mixtures). In most cases, you'll find that one 
Or more of the programs given here will give you a starting point to 
produce the program you need. 

Educational programs — as you'll see alittle later on —do not have 
to be dull. Some teaching programs can even be written quite 
explicitly as games. Educational games require the players to 
develop and apply their knowledge in order to compete with other 
Students. To work well, success should go to those who use their 
knowledge most effectively, and although random factors may 
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play some part, they should not determine the outcome of the 
game. 

Programs which teach new material can be very lengthy, as the 
programmer needs to anticipate all of the likely mistakes and 
misconceptions that may arise, and to provide correction 
sequences for them. The same material will need to be presented 
in a number of different ways so that a child who does not 
understand the first explanation may succeed when the 
information is presented in a different way. 

This sounds extremely demanding, almost impossible, and a 
good ‘half-way house’ to this sort of program is one which is 
written with the knowledge that the student has a particular text 
book with him or her as the program proceeds. Then the program 
can be used more as an intelligent guide to the book, than as a 
‘stand alone teacher’. The program could, for example, say: “Now 
that you've shown that you understand that Lamaism’s beliefs and 
worship derive from the Mahayana form of Buddhism, I'd like you 
to turn to page 26 of the textbook, and read how it was introduced 
into Tibet. When you've done that, come back to the computer and 
I'll ask you some questions about it”. On return, the questions 
could check the material on page 26, and — if some lack of 
understanding was shown — direct the student to a specific 
position on that page, or to another reference to the topic 
somewhere else in the book. Using a program in this way ensures 
that a programmer's time is not tied up creating endless PRINT 
statements to cover every possibility, and means your Spectrum 
can be used to help teach subjects which might otherwise seem 
far too complex to allow for a computer approach. 

Projects are a regular feature of primary school work, but 
students often have problems locating suitable information. The 
Spectrum can be used to store the information itself — which can 
be accessed using a menu approach like Prestel— or it can be used 
to help with the location of a suitable source of information. Apart 
from the immediate benefits of this to students, it may well help 
them become aware of the increasing importance of information 
technology in modern society. 

If a school, or for that matter your home, does not have access to 
Prestel, a Prestel simulation with a limited number of choices can 
be written which will help students become familiar with the 
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techniques of using a menu-based process to locate information 
stored in a cross-referenced ‘tree structure’. 

Simulations of other types allow you to carry out investigations 
which cannot be performed in real life. The Spectrum can use a 
mathematical model to predict the outcome of making changes to 
a system. You might wish, for example, to find out how pollution 
levels will affect fish, insect and plant life in a pond. A simulation in 
economics will allow you to alter the money supply, and see how 
this affects employment levels. A chemistry simulation might 
allow you to change the catalyst, temperature and pressure to 
optimise the yield of, say, sulphur dioxide in a sulphuric acid 
manufacturing plant. Of course, a simulation can only be totally 
realistic when the mathematical model is an accurate 
representation of the system. Even when it is not totally accurate, 
so long as students are informed of simplifications in the 
simulation, it can be still most instructive. 

At the end of this chapter, I'll discuss some specific approaches 
to educational software which have proved successful for others, 
along with an idea of the kind of things which can easily be 
transformed into educational programs. However, first I'd like to 
discuss specific programs (Some written by Jeff Warren, and 
others by myself) which will show different approaches to the 
production of educational software. Even if these programs are not 
of immediate use to you in this form, they should give you models 
to work from to produce your own programs. 

Many educational programs use the RND function to set sums or 
to select questions at random, so that the learner does not become 
bored by a predictable sequence of questions. Our first program 
randomly generates simple division sums, but it can easily be 
altered to give practice in any basic mathematical skill. 

Line 5 makes the user-defined graphics symbol D into an 
Ordinary division sign as used in school work. Next the initial score, 
S, is made equal to zero. The program sets 20 questions using a 
FOR/NEXT loop with qas the question number (lines 20 — 120). The 
questions take the form “What is 32 divided by 4?”, which the 
Spectrum sets up as x/y. Line 30 gives a value of y between 2 and 
12, and line 40 produces a value of x which will give a whole 
number between 1 and 12 as the final answer. Line 50 displays the 
question and accepts the answer using INPUT a. Line 60 chooses 
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between the correction sequence of lines 70 and 89, or the praise 
given by line 90, which also updates the score. Remember, you 
have to press both the CAPS SHIFT and the 9 key at the same time 
to obtain the graphics cursor, G, before typing the D in line 80. The 
D will change into + when you run the program. 

Line 100 enables the user to continue to the next problem when 
he or she is ready for it. How quickly a student can take in the 
information on the screen varies considerably, so that a fixed delay 
is not a good idea. PAUSE could be used instead, but you would 
have to set a long enough time, or the message might disappear 
before it had been read, and once gone, the student could never 
get it back. Never force the user to wait for the next part of the 
program by using FOR/NEXT loops to create inflexible delays, as 
this can be very frustrating. Note that line 100 allows you to stop 
the program prematurely by keying in “s” before pressing ENTER. 
The last line of the program prints the final score. 


DIVISION TEST 

__3 FOR Fae TO ?: RERD a: POKE 
USAR “d'+F.a: NEXT fF: DATA &,. 16.8 
-2S4.8, 15.8.8 

23@ LET s=a 

2e@ FOR q=1i TO 2a 

38 LET v=2+INT (RND#11) 

$0 LET X=U2INT (RND#22411 

5@ PRINT AT ~@:; PAPER 6, “Ques 
tion q’’: PRINT “What is “;x;" 


on 
a 
" 
"Ze 
i 
x 
%, 
pe: 


G@; 7" "Hrang. The 


answer 325 no “32 
B@ PRINT ‘’x2" BP “Gye” = 2a 
PRINT PAPER 65 aie tF ehimner ‘ahs 
“segs x “segs” = “gx” : GO 


q 
iS@ PRINT aiwores “Wot scored “; 


Make sure that you limit the difficulty of your questions to the 
capabilities of the student. Do not allow the Spectrum to produce 
questions like “What is 19 divided by 7?” if the student knows 
nothing of remainders and decimals. 
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You can make your program more responsive to the user by 
using the score to control the difficulty of the questions. One way 
of achieving this in the division program is to rewrite line 30 as: 


30 LET y = 2+ INT (RND*(3 + (s>=5)*4 + (s>=10)*4)) 


Until the score of correct answers reaches five, y will be set in 
the range 2 to 4, because the logical expressions (s>=5) and 
(s>=10) will both equal zero, as both expressions are false. When 
the score is five or more, the expression (s>=5) becomes true and 
takes the value 1, and y will be given a value between 2 and 8. 
Finally, when the score reaches ten, y will be given a maximum 
value of 12. Similarly you can change line 40 to: 


40 LET x =y* INT (RND*(5 + (s>=5)*7) + 1) 


The advantage of this type of program control is that the 
transition to harder problems is smooth, and the exercise will be 
both easier and more pleasant for the user. 

Although the program has been written for division sums, it is an 
easy matter to change it to other types of calculation. We can 
change the second part of line 50 to: 


“What is 1/"sy;" of “ix;" 2?" 


This now gives questions of the type “What is 14 of 32?” for 
practice with fractions. You will need to change line 80 to match 
the new question format. Try writing versions of the program to 
cover addition, subtraction (remember to make the first number 
larger than the second, unless the student knows about negative 
numbers) and multiplication. 

Many programmers like to make their software more personal 
by having the computer respond to the user by name. The idea is 
that it makes the machine appear more human. If you wish to do 
this, you will need to write a subroutine which can converse in the 
following manner: 


Spectrum: “Hello. What is your name?” 
Student: “Samantha” 
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Spectrum: “Well Samantha, | hope that you are ready to 
answer some questions about the anatomy of the rat.” 


This can be carried further by having alist of ‘praise phrases’, one 
of which is selected at random for each correct answer: 


“That's right Samantha, tibia was correct.” 
or 


“Well done Samantha, femur was correct.” 


This type of approach gives a lot of satisfaction to some children, 
especially those who enjoy the talking computers and robots of 
science fiction. 

The Spectrum can also use childrens’ competitive instincts by 
maintaining a best score record, together with a fastest time, if you 
make use of the system variable FRAMES to time how long it takes 
to answer a question. This works well if you have a student trying 
to better his or her own previous performance, but can be 
discouraging for the slower children in a group, so you should give 
careful thought to its use. 

The next program, ARITHMETIC QUIZ, shows the student's 
name being used by the computer, and—in general—has a far more 
friendly approach than that used in the DIVISION program. As well, 
it allows the student to choose which type of question (addition, 
subtraction, multiplication or division) will be generated. 


32@ REN ARITHHETIC Ours 

SO PRINT ere ™He Lio. there. °°" 
Were GaINgGg to try 32 few SUAS.” 

408 PAUSE 288 


S@ cis 

SB@ PRINT “‘'"NO, BhSt 25 your 
nape?" 

78 INPUT AS 

&9 CLs 


9@ PRINT ‘‘‘"“Pteased to meet © 
ae? “; FLASH 2; BRIGHT 1; INK i; 

$ 

108 PRINT ‘‘‘"“Press any Key whe 
m you’re ready"; TAB 6; “toe start. 


418 PRUSE @: LET SCORE=9 
228 CLS 
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23@ PRINT ‘"“Now, “AE: * Zz can 
Bive you" “questions on: * 

246 PRINT i - gad: fs hee 

235@ PRINT °" 32 —- sibtractian; 

236@ PRINTF °“" 3S -—- BULTIPLicstior 
s er" 

276 PRINTF °" & -— @2¥isidan.” 


386 PRINT °“*"Enter 2 mMumber Fre 
® “> FLASH 3; °3 t0o 2° FLASH 8 * 
to tetlti ME Which type OF Stses*’” 
YOu Want to try.” 

39@ INPUT BS: LET B=VAL BS 

2QB@ IF 5<1 OR B24 THEN GO TO 1¢ 


225 CLS 


#28 PRINY “«*" OR, “; HS; s Be “it 

Lry Some’ “SUBS USING . 

BEE FRINT INK 2; FLASH a; (“addi 
tran” AND B=23 +(“subtractian™ AP: 
td Steele Oh ts al AO hie AND S== 
Je (“Gi vision” NO 6=4) 

#238 PAUSE Bae” 

2a@ CLS 


2S5@ PRINT °‘‘"“Enter i if you we 
Mt B8Sy sues "’ “or S if you want 
Fairty" “di fficurt ones.“ °C vs 
u can enter 2, BS aor 4 if vous ™ 
want Questions HBhicth are noes 
too 885459, Bhd Mot too hard.3” 
PS@ INPUT Cs: LET C=URL CS 

27@ IF Cit GR C35 THEN GO FO 2¢€ 


.] 
275 CLs 
BSe@ LET OF=("+" AND B=13 +f" -" & 
ep. B28) 4€“2" AND BS} five" AND EF 
298 FOR E=1 TO 1394 
3@@ LET A=INT (RND#(16+4C33+C 
SiG LEFT BS=INT (RND#(10+440)34C 
S20 LET GE=STRE FA+DS+STRe B 
32S IF ABS CINT VAL G9) ¢>VUAL G§ 
FHEN SOQ FTO 388 


S30 PRINT “Now. “;AR*, this if 
“; TAB &; “questian Humbe F “3 
S348 PRINT “"’"What 25 “; GSEs °F" 


358 PRUSE 5a 

pg PRINT “‘‘"Tey it now, and 1 

in? “sour anmswer.* 

3E Se EINPUT F 

375 PRINT °** 

S8@Q IF F=UARL ee THEN SFE&EP .@8,F 
+5CORE: BEEP ,;e22TF+5CORE}: PAT. 
T FLASH i; TNE "RNDS?; PRPER OG: EL: 
tide dene, ";AR: LEY SCaRE -<SCoORE- 
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aoe IF F< >VAL Ge. oe Aaeiiacs "NO 
| I'am sorry, “ARs ‘T“the a 
mswer ais PAL Gs 
4@0@ PRUSE Fe . 
41@ PRINT ae Aad 4 Score is now 
* > ENK ZL; cas 3, SCORE; INK @G; 
FLAS H @,* ou ;E 3 
420 IF E<¢ie SHEN PRINT -- "res 
5S any key For the next questian. 
'. PRUSE @: CLS : NEST E 
43@ PHUSE ifsaA 
442 CLS 
45@ PRINT ‘‘“That brings us toa 
the end of “that Quiz, a8 PES Oe 


465 PRINT fee '¥eaur Stare wes a) 


ASH @;" aut af “;E; TRE FLASH 
tae BRIGHT 4; INK Bi ARBRE SIBB VES 


47@ PRINT ‘‘“‘Hould you tike ano 
| ther round?" ‘'*Tygpe in *Y" iF yau 
woutd, or “‘’"press any key to e 


nd. 
48@ INPUT Ys 
.° pi Yee"¥" OR ygso"y" THEN GOD 


i@ 
500 PRINT -'+s'yt's been gead do 
ing Sums wih’ "you, “;AS 
Boa PRINT °° ° FLASH 3; “Bee you 
again sometime" 
B3a@ STOR 


As you'll see when you run it, colour and FLASH have been used 
to highlight certain things (such as the student's name the first 
time it is used). The conversation of this program proceeds as 
follows: 


“Hello, there. 

“We're going to try a few sums. 

“Now, what is your name? (Student enters his or her name) 
“Pleased to meet you (FLASH, BRIGHT, blue INK), Samantha 
“Press any key when you're ready to start.” 


PAUSE 0 is used here (line 110) to hold the display until a key is 
pressed. The variable SCORE (which holds the score, naturally * 
enough) is set to zero, and the screen clears (line 120). The 
computer takes up the conversation again: 
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“Now, Samantha, | can give you questions on: 
1 — addition; 

2 — subtraction; 

3 — multiplication; or 

4 — division. 


Enter anumber from (FLASH on) 1 to 4 (FLASH off) to tell me 
which type of sums you want to try.” 


The student enters a number which, as you can see from line 
190, is accepted as a string and then converted (using VAL) to a 
number. 

By the way, it is important to write programs so that incorrect 
input doesn't cause a crash. This is not fully covered in the first 
program in this chapter, the division program, where the input of a 
letter instead of anumber could cause the program to stop with an 
error message, leaving the user wondering what to do. This 
problem can be overcome by treating every input as a string 
variable. 

You can use the CODE function to make sure that the input is 
numeric, if that is what you require. Then you can convert the string 
into a number using VAL. Try the following lines for a single-digit 


number. 
10 INPUT n$ 
20 IFLENnS<>1 THEN PRINT “Single digit please.” : GO 


TO 10 

30 IF CODE n$<48 OR CODE n%$>57 THEN PRINT 
“Numbers only please.” : GO TO 10 

40 LETn=VALnS&: PRINT “At last.” 


Run it to see that you can only complete the program by entering 
a single-digit number. Numbers have character codes from 48 to 
57 inclusive. 

For multi-digit numbers you will have to separate the input into 
individual characters using string slicing techniques and check 
each character in turn. As an alternative you could use INKEYS =to 
get the number one digit at a time, with CODE INKEYS = 13 (which 
is the character code for ENTER) terminating the input. 


re 
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Now, back to our ARITHMETIC QUIZ. The computer has asked 
the user to enter a number from one to four to select the type of 
questions which will be asked. The conversation continues: 


“OK, Samantha, we'll try some sums using subtraction (or 
whatever Samantha had chosen)”. 


Note how line 220 uses the Spectrum's way of evaluating the 
logical expression AND to choose one of the four words (addition, 
subtraction, multiplication or division) depending on the value 
which has been given to B. There is a PAUSE (line 230) and the 
screen clears. The talkative Spectrum continues: “Enter 1 if you 
want easy sums, or 5 if you want fairly difficult ones. (You can enter 
2, 3 or 4 if you want questions which are not too easy, and not too 
hard.)" This gives the user a measure of control over the program, 
and the interactive nature of the experience to this point should 
help the user feel he or she really is conversing with a ‘robot 
intelligence’ with a personality. The input is accepted as a string 
and converted to a number, and again the screen clears. Line 280 
makes use of the AND logic evaluation again to determine the 
arithmetic sign (+, —, * or /) which will be used in presenting 
questions to the user. 

Line 290 starts the loop of 10 questions which will be presented 
to the student, with lines 300 and 310 choosing numbers for the 
problem, with the size of the number being related to the ‘degree 
of difficulty’ (variable C) requested by the student back in line 260. 
Line 320 adds the numbers and the arithmetic sign chosen 
together into a single string. Line 325 checks the result of this 
problem, to ensure that the answer is not fractional (as it might be if 
the sum was a division), nor negative (as it could be in a subtraction 
problem). This validation line can be left out if answers which are 
not whole numbers, nor above zero, are acceptable. 

Line 330 prints out the question, using the student’s name 
again: 


“Now, Samantha, this is question number 4 

“What is 7 + 3?” There is a slight PAUSE, line 350, then the 
Spectrum says: 

“Try it now, and type in your answer.” 
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Line 380 checks the answer, and, if it is correct, rewards the 
student with a couple of beeps, whose pitch is related to the 
number of correct answers which have been obtained so far in the 
current test. The words “Well done, Samantha” are printed on the 
screen, in a randomly selected flashing colour (using INK 9 to 
ensure that the words can be read), and the SCORE is incremented 
by one. If the answer given is wrong, line 390 prints up “No, I'm 
sorry, Samantha, but the answer is 10”. Notice that there are no 
flashing words, nor beeps for a wrong answer, so the correct 
answer includes a better ‘reward’ than an incorrect one. 

There is another short PAUSE, and the Spectrum prints up: 
“Your score is now (INK 1, FLASH) 1 (FLASH off, INK normal) out of 
3”. If the tenth question has not been asked, the Spectrum then 
says: “Press any key for the next question.” This waiting for a key 
press allows a student to proceed at the pace he or she feels most 
comfortable with. 

At the end of the tenth question, after a PAUSE, the screen 
clears: 


“That brings us to the end of that quiz, Samantha.” (PAUSE) 
“Your score was (INK 1, FLASH) 8 (INK normal, FLASH off) 
out of 10. (many effects) 80% 

“Would you like another round? Type in “Y” if you would, or 
press any key to end.” 


Although it can take quite a long time to write a conversational 
program like this, the increased interaction it creates with the 
student more than repays the time spent in creating the extra lines 
in the program. 

Line 480 accepts the student's answer, and line 490 checks if it 
isa “Y” ora “y”, thus sidestepping the problem of determining 
whether the computer has CAPS LOCK engaged or not. 

If the student says another test is required, the computer does 
not just RUN from the beginning, as this would wipe the student's 
name from the computer memory, and the whole “Now, what is 
your name?” sequence would have to be repeated, which would 
convincingly destroy the illusion of an intelligent, helpful robot. 
Instead, the computer goes to the point in the program (line 100) 
which follows the “What is your name?” routine. If the student has 
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not answered “Y” or “y” to the question regarding a further test, 
the computer prints up: “It's been good doing sums with you, 
Samantha. (FLASH on) See you again sometime.” 

Although this explanation has been even longer than the 
program, | hope it shows just how effective even a simple program 
can be made with the use of ‘conversation’. Comparing the output 
of ARITHMETIC QUIZ with the DIVISION program shows how 
much more user friendly the second program is than the first. 

There are other ways to make programs user friendly, by giving 
more feedback than just “Well done” messages. Many children 
welcome the additional motivation provided by linking the ‘school’ 
exercise to some form of game or visually interesting reward. We 
are now going to extend the first program in this chapter in this 
way, making use of the Spectrum's user-defined colour graphics 
and the sound generator. 

At the top of the screen the program will show a river with an 
incomplete bridge, and a tank on the left bank. Each time a sum is 
correctly answered, the deck of the bridge is extended. If all twenty 
answers are correct, a success ‘tune’ is played, the tank crosses 
the completed bridge and fires its gun. 


First replace line 5 of the DIVISION program by: 
5 GOTO 150 


and add to the end of line 90: 
: GO SUB 250 


Change line 110 to read: 
110 PRINT AT 8,0; FOR n=1 to 11: PRINT b3: NEXT n 


Now add the following lines to your program. 


Additional lines for DIVISION: 


aaa S=S8 THEN FARUSE FS: Go 


°.ae° STOP 

1450 FOR n=1i1 TO 4: READ ss 

169 FOR m=@ TO Ff: READ a: POKE 
VER SHtm,. a: NEXT & 

378 NEXT n 
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ne ge “a, F,15,7,255,255,127 


"330 DATA 188° ig92,254,192,255,25 


5,255, 254, 
2ee@ baAT ,255,8.8.8, 3.8, 2 
210 DATA “ania, 16,a,2354, ete 


220 LET bg=") 
230 PRINT AT 3,8)" "ABC": PRINT _P 


ak 


RAPER &. * INT _AT a1 2t f 
BREE 2 2 8 ": PRINT AT 4,24 
; PAPER 4;" “: PRINT PARE 
Ri: bs: 


2598 PRINT AT 4,375; OVER 43; "L": 
RETURN 


260 FOR n=@ TQ 28: FOR we=4 Ta & 
STEP .5: BEEP @.01,m%3m:> NEXT wp: 


270 FOR n=8 TO 23: PRINT AT 3.7 
7" AB": PAUSE S: NEXT 

260 FOR n=i TO 5S@: PLOT 216,158 
>: DRAV_ INK 2;36,8: PLOT arib. ibe: 

DRAW INK 7; 36,8: NEXT 

299 PRINT AT 4,10; "wett done." 


Lines 150 to 170 set up four user-defined graphics symbols, 
using the data held in lines 180 to 210. The bS defined by line 210 is 
used in line 110 to clear part of the screen only, leaving the picture 
of the bridge and tank undisturbed. This picture is created by line 
230. You will have to obtain the graphics cursor before typing 
“AB", as this will be the tank. The same applies to the “C” in line 
250 and to the “AB” in line 270. 

Line 250 draws a new section of the bridge roadway after each 
correct answer. Line 260 plays the victory tune if all of the answers 
are correct, line 270 drives the tank over the bridge and line 280 
fires its gun. 
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Here's what it looks like in action: 


w —preEnene 


Huesstiaon 2 


What is 108 divided by SF 


Good, 2 is correct. 


mypess faRSeFSs to 6Ucaontanive. 


—wrewwwheedd 


168 - 39 = 


iremember that @ x 2 = 18 1 


fa 


continue. 
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RRNA 


WELL done. 


You can, of course, link the tank sequence to any educational 
program to provide additional motivation. However, if you use it too 
often, it may lose its appeal. Try making up sequences of your own, 
bearing the following points in mind. Ensure that the reward 
section does not interfere with the educational aspects of the 
program. If it takes longer than a second or so after each question, 
it will soon become tedious and annoying. The incentive should be 
positive, encouraging the child to pursue success rather than to 
avoid disaster. Do not penalise failure, because this makes some 
children feel anxious, which does not make for enjoyable learning. 

You can be fairly flexible in your approach to writing educational 
programs. There is no particular reason, for example, why the 
computer should a/ways be used to both generate problems, and 
check their answers. Our next program, EQUATIONS (which 
generates equations of the type ax + by = 2), for example, only 
works out a problem, and prints it on the screen. When the student 
wants to see the answer, he or she simply presses any key (except 
BREAK) and the answer, along with the values substituted in the 
Original equations, is given. You may well wish to enter this 
program into your Spectrum and, as an exercise, add a full 
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conversational framework, a score-keeping mechanism, and a 
means of accepting and evaluating the student's answers. 


4@ REM E@UATIONS 

BQ INK 7: PAPER 2 

S@ BORDER 1: CLS 

40 DEF FN MEN} SINT (RNDSN? +3 
S@ LET A=FN M(i83 

6@ LET B=FN N 

v7e@ b C=FN FF 
&@ LET D=FH A 
9@ LET X=FN 4 
2@@ LET Y=FN M 
ia LEY E=nexeeeyY 

42@ LET F=CsX4+Dsy 
4330 PRINT °°" INK G; "The equati 


449 PRINT ‘“TAB_8S; INVERSE 1:;A3' 


x + 3,67" = “SE 

aoe PRINT ES ENVERSES 32:6; 
x yo = 

168 PRINT "“™VWou MLSt salve them 
Far “>; INVERSE a; "x “> ENVERSE @® 


7" amd “; INVERSE i; ny 

A7@ PRINT ‘“"“Press any Key Far 
the scetution”™ 

1S@ PAUSE 8 

i9@ CLS 

= 88 cea °°" FRE SA VX + “2B; 


Bie PRINT ‘TAB 6;C;"K # “sDE"Y 
220 PRINT ‘TAB 4; “The vaive 


oF 
x 235 “>; FLASH 3;é 
23G PRINT ‘TAB 4; “The value oF 


y¥ 35 “>; FLASH i: ¥ 

ee PRINT “TRAE = > a re, ae ae 
5B; en. Pin ae 7 8 - Ze 

asa PRINT _ "TRE @,;O;, CS" Rs F GE 
> ee #° > ae ~ aes F 


£ 
26e PRINT 7" “Press anu ASU For 
3 new probier” 
270 PAUSE 8 
2a RUN 


Sample run: EQUATIONS 


TRE S4uaTions sre: 


| Sx + ly = iS 
Fx ¢ Bu = SE 


You must sdtve them FOr xX aNd Y 
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Press any key for the sotrtion 
3x + 1Y = 13 
Fx + 2 = 25 
The value of xX is S 
The value af yy is a4 
StS + LEA 
F743 ¢+¢ L#4 = 25 


t 
my 
W 


Press any Rey For & nese Probtem 


The equations are: 
Sx + Sy = 128 
@x + GY = 126 
You must solve them for x and y 


Press any key for the soturticn 
Gx + Sy = 120° 
9x + 6y = 126 
Tre value of x i8 18 
The vatue af y is 6 
9219 + 526 = 128 
9218 + 626 


" 

fe 
hy 
o 


Press any key for a new prebtem 


Our next program, CATS AND THINGS, is for very young 
children. It uses INKEY$ throughout, and has rigorous input 
validation. A random number of tanks, lorries or cats are displayed 
on the screen, and the child has to type in the correct number. 

Note the difference between the use of INPUT and INKEYS. 
INPUT does give you the chance to correct mistakes. INKEY$ has 
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the advantage for single character inputs that you do not 
subsequently have to press ENTER. This makes the program 
quicker to use and gives it a more professional finish. 

The tanks, lorries or cats are printed with the user-defined 
graphics symbols A and B, the necessary data being held in lines 
510 to 530. The type of object is selected randomly in line 20, and 
the computed RESTORE sets the DATA pointer to the correct line. 
Lines 30 to 70 then assign the name of the object to nS, and set up 
the graphics symbols. 

Lines 80 to 140 choose the number of objects, print them at the 
screen positions specified by the data in line 600, and ask the child 
how many objects there are. Note that you must have the G cursor 
when you type AB in line 120. BEEP is used in conjunction with the 
visual display to direct the child's attention in the correction section 
(lines 180 to 230). Praise, accompanied by a rising sequence of 
notes, is given by lines 250 and 260. 

You may wish to improve this program by adding extra 
statements to keep the score and to print it at the end of a set of 10 
questions. You could also make the display more attractive by 
introducing a random INK colour into line 140. Avoid white cats ona 
white background, as children feel cheated when they forget to 
count them. Try increasing the range of objects — how about birds 
or spiders? Give your children some squared paper and get them to 
devise some of their own. Write additional DATA lines from 540, 
and increase the number in line 10 from 3 to your total number of 
different types of object. Another variation would be to have 
random positions for the objects, if you feel that the domino-type 
pattern encourages convergent thinking. 


CATS AND THINGS 
S LEY b=" : 


38 READ ns 
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SO RESTGRE 6080 

382 FOR n=-2 TO =z 

Li READ xy 

228 PRINT AT *x,u 7 "SB". 

21308 NEXT n 

149 PRINT AT 15,4; "How many "on 
S$: are there 

153 GO Sus 416 

160 IF CODE if<¢48 OR CODE i #357 

aaa ee oe To ida 

1° 2 3 


16@ PRINT AT 1=,0/bS ReoTone a 
19@ FOR n=i Ta z 


2@@ READ x.y 
220 PRINT AT x.y-1; PRPER &:n 


250 PRINT AT i5, @;* “Good. "; be: F 
RINT AT F,@; FLASH 42; 

26@ FOR m=@ TO 4 STEP 11: BEEP 
®.02,.M%m: NEXT m: BEEP 1.28 

#270 PRINT AT FQ 

260 PRINT AT 21,8; "Press ENTER" 
298 GO SUB 418 

SOO IF CODE i8<«>43 THEN GO To z 


Si@ CLS : GO To 18 

40990 REM SINGLE HES. INEET ; 
arte IF INKEYS$<3"" THEN Go TO a7 
23 

420 IF INKEY$=""" THEN GO To 426 

430 LET i=INKEYS§ 

449 RETURN 

Sea REM £ sgh sO ; ~ 

S1i@ DATR “tanks” ."3a",7,18,7,255 

255,127,63.27, Ee, 192 ,254,195,2 
55, 255, 255,254, 166 ‘ 

520 DATA cats" “a"',@,.128,.127.6 
3,63,56,428, 40,°b",28,28,258 2408, 
240, &a,4a, Se 

53a DATA “lar ries", "a" ,@,8,8,25 
5,255,255 ,285,48,"b",28,3828,38.55 
5,.255,.255,255,12 

6aa DATA 4, 5,10,5,4,11,10 Li.?, 
5,4,18,16, 18, 4,24,138,5¢ 
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Sample run: CATS AND THINGS 


Haw many bLoarries are there 


How many cats are there? 


hae 
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So far in this chapter we’ve been concentrating on numerical 
problems, which are the easiest ones to write for the Spectrum. 
But there is no reason to assume that ones requiring verbal 
answers need be much more difficult. 

The next program, FRENCH VOCABULARY, stores the 
questions and answers in DATA statements, and can easily be 
extended or adapted for any similar one word answer quiz 
programs. Notice in this program that the computer must have 
CAPS LOCK engaged, as the questions, and the answers the 
computer is checking, are all in capital letters. The program allows 
the student to choose the number of questions he or she wishes to 
try (line 80) and this number is used in the FOR/NEXT loop in line 
100. 

You may believe it is important in programs of this type to ensure 
that the same question is not asked more than once ina run. If you 
do, you may wish to use or adapt the mechanism given in this 
program which ensures the meaning of the same word is not 
asked for more than once in any run. Line 30 dimensions an array 
and, as you know, sets every element of that array to zero. You can 
see in the DATA statements that the word in English is followed by 
the word in French, which is in turn followed by anumber. When a 
pair of words is chosen (by randomly reading through the DATA 
statement, see lines 110 to 130), a value is also assigned to the 
variable X. Each pair of words has a unique number, and this 
element of the array is set to the value 1 in line 160. Line 150 
checks to see if this element is 1 before printing up the question, 
and if it is, RESTOREs, and then goes to choose another pair of 
words (and flag number). Although this means it takes a little longer 
at the end of the quiz to find an unused pair of words-than it does at 
the beginning, you'll find the delay adds to, rather than detracts 
from, the program when it is running. 

You'll see that this program, like most of the earlier ones, 
responds to a correct answer with a greater flourish than it does to 
an answer which is wrong. Notice also that the program gives an 
immediate correction if the student is wrong. 


2@ REM FRENCH VOCRBULARY 

28 LEY SCORE=8: PAPER 2: INK ¥ 
BORDER 2: OLS 

2& DFP Ai2e: 
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45 FRINT °“‘’TRE 6; “Neltlcome to ft 
Bis French" 

Sa PRINT TAB GS: “vocabulary tes 
5 ee 


66 PRINT ° "TRE 6, "HO many wor 
as woutd” 

7O PRINT “ you Like to tryut 
iz. fa 3253 

G@ INPUT 2B 

Se j%IF B<¢2 “OR B28 THEN GO FTO s 
@ 

382 FOR OC-r FTO B 

RAB FOR P=1 FO INT fRND#20)3 +4 
2238 READ ES: READ FS: READ X 
L338 NEXT DB 

i408 RESTORE : tLs 

358 IF Aix} =2 THEN GO TO 116 
368 LET Rixi =2 

327& PRINT “°° ZINK RRND? 5 PAPER 
ae MUESTIOn Hiwber “;OP™: Ot 


BG PRINT “*l "What is ine Fremne 


BEG IF AS=FS THEN LET SCORE=SCC 
RE+1: BEEP .2,2.S#SCORE: PRINT F 
LASH 1; INK 3; PAPER 5S;°"'" Yes, 

;Fs:* 35 fCarrect ~*~ 

aie IF AS<sFsS THEN PRINT “‘“No. 

i‘m sorry." * "The French word f 
or ": ES; TRE 8); "is "ZFS 

220 IF C<B THEN PRINT ‘* INK 3; 

FLASH 1; BRIGHT 1;" Your score 
is How “;SCORE;" “ 

238 PRUSE i5e 

248 NEXT C 

250 INK 2: PRPER 7: FLASH 42: CL 


S : PRINT AT 5,3; "In that test y 
ou scored “; SCORE 
SEG PRUSE 208: FLSSH & 
| 278 RUN 


286 DATA "EVERYWHERE", “PARTOUT” 
23, "SELDON", “RARENMENT".2, “OQFTEN" 

, “SQUUENT™. 4 s NEVER”, "JANATS”.4. 
“SLURYS” . TOvee oa : S 

298 DATA “VERY", “TRES",.6, "MORE" 
2“PLUS".7, “LESS”, A HOINS 28,°YES" 
,"OUT', 9, "NO", “NON” 

386 CATA “THANK You" © MERCI er! 

2, “QWE™, “UN ,22, "THO", “DEUX", 13 : 
THREE”. “FROIS".14, “FOUR. “ SORTRE 


5 
31e DATA "“FIVE"’, "“CING”",216,"5Ix" 
2"SIX",137, “SEVEN*, “SEPT”, 18, “EIG 
Ar”, “HUIT",13, "NINE", “NEUF “726 
32@ STOP 
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Sample run: FRENCH VOCABULARY 


Welcome toa this French 
vocabulary test. 


How many wo 
cu Like to ter 


Question number 2: 


What is the Frenth for 
MORE? 

PLUS 

Yes. PLUS is correct 


Wour score is now 2 


Question Number 2: 


What is the French for 
EVERYUHERE? 
PARTUOT 


NGO. EI‘m sorry. 
Thre Franch ord for EVESYVHERE 
25) PARTOUT 


Wour stores is Aom 2 
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Question number 3: 


What is the French for 
FIVE? 
CING 


Yes. CIN@G is ctarrcect 
Your score is noe 2 


You can use the next program, QUIZ-MASTER, for anything from 
weekly spelling lists to O-level Biology. The catch is that you have 
to provide the questions. This is easier than you might think, and 
hopefully students will do most of the work for you. 

The program is used to store a selection of questions or clues, 
together with the appropriate answers. Here are some examples 
to start you off: 


What is the French for “to give?” 
(answer: donner) 


Name the mineral mined at St. Austell. 
(answer: china-clay) 


Which sub-automic particle has 1 unit of mass and no 
charge? 
(answer: neutron) 


Which cell organelles contain the cytochromes? 
(answer: mitochondria) 


Short, simple clues’ should be sufficient for the weekly spelling 
test. If the list includes “knight”, a suitable clue would be “armed 
horseman”. Persuade your child to type in his or her own clues and 
words, and then try the test yourself to make sure that you agree 
on the spellings. 

The program first flashes the complete set of answers briefly 
onto the screen one at a time. It then presents the questions in 
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random order, but without any repeats. If you get one wrong, or 
simply press ENTER, you are given a hint, “k....t” for knight, or 
“qd....r” for donner. RUN 500 allows you to create a new set of 
questions and answers. 


QUIZ-MASTER 


N=x-2 
_&8 FOR n=2z FTO x: LET yvini=yitne 


mn 
8@ CLS : LET t= 
36 PRINT AT 3, See ia INPUT i 


220 IF i¢¢s+asiqir TO tfqii THEN 
GG TO 3246 

429 LET s=s+4+t: GO TO 218 

2308 GO Su5 418: CLS 

240 IF x;8 THEN GO Ta 68 


250 REN 
166 PRINT AT 5,@, "Your score w 
3 a oe out of * ;heD 


7 "Well done, “; 
;AT 3,35;e% 


fu 
~~ 
9 
a) 
a) 
a8 
| 
a 
onl 
«] 
~ 


% 
+t 
D 
| 
8 
2] 
ffs 
id 


260 IF t=2 THEN GO Ta 3164 

2FO PRINT AT F,8; "The right ans 
wer Bas: "“.: 8G; 8T 2,15; agtg} 

26S GG TSG _i38 

SOO REM hikethgee— 
3Gi@ LEFT t=1 
Fee PRINT AT F 
: ;BES AT Si,e; 
336 PRINT AT 3 
TO L{q} -Biytagiq 
S40 GO Ta 166 


2 
% 


102 Using the Spectrum in education 


450 PRINT AT Pi, Q; "Press 
to continue.” 

420 GO Sue 469 

450 IF CODE *£€=-13 THEN RETURN 
4420 66 Fe 420 


es IF INKEY $="" THEN GO Fo 478 


PRINT “Hog manu questians‘’™ 
“INPUT m 

S26 Ors caHim,Gdt)?: BIN asim, 1513: 
OTM Lim? : BEM y tm} 

S30 FOR q=1 TO pm 


S89 CLS : PRINT "GQuestian “;qQ°°- 
SSO PRINT “Tupe in the questian 
or clee.'*: ENPUT cH#tq?} 


S6Q@ PRINT ‘c$(qic "Type in the 
answer.‘ : ENPUT if 

BPO PRINT ’ig¢;AT 20.8, "If satis 
rectors: type s;*,"ta detete typ 
2 . 

550 GO Sua AES 

590 IF *XG="d" THEN GCG Ta S48 
6090 IF &«K&er*s" THEN GO TO 586a 
610 LET tfiqi=LEN ig: LET agf{qis 


ES 

620 NENT 
650 REM Baw eee as a 

660 CLs : THEOT “What is the prc 
at mame?" ;, EE 

&FTO SAVE PE LINE 20 


To understand how this program works it is best to start where 
the questions and answers are fed in, from line 500 onwards. The 
total number of questions, m, obtained in line 510 is used to 
dimension four arrays in line 520. Array cS holds m questions, each 
up to 64 characters (two lines) long. Array aS holds the m answers, 
each up to 15 characters long. If you want longer questions or 
answers, then change these DIM statements. Array 1 is used to 
hold the real lengths of the answers, as the answer strings are 
padded out with spaces when they are stored in the array. The 
answer length is used when the child's answer is compared with 
the correct one. 

The answers are initially accepted using INPUT iS, so that their 
lengths can be determined before they are stored in array aS. 
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definitions and questions from English literature into the Spectrum 
on a regular basis, you will soon establish a substantial bank of 
revision material (and will probably learn quite a bit yourself). The 
preliminary flash through the answers and the hint option make the 
responses come easily to mind when the program is run again at 
intervals throughout the year. This will give your child the 
confidence in the basic meanings of words and terms, without 
which further progress cannot be made in any subject. To enhance 
the program, you could use a further array to store explanations or 
additional information which can be called up or by-passed by the 
user at will. Another possible development would be to check 
wrong answers against a list of related terms, and to have the 
Spectrum give the correct meaning of the child’s answer. 

From that very general educational program, we move to a very 
different, quite specific one. This one, which | thought of while 
reading the book ‘The Standard Reading Tests’, (see ‘Suggestions 
for further reading’ at the end of this chapter), tests reading speed, 
and retention. The computer chooses from sentences stored in 
DATA statements from line 160, and prints them on the screen. 
They are held on the screen for a time related to the length of the 
phrase (see line 60) and then the screen is cleared, and the student 
is asked to enter the phrase he or she has just read into the 
computer. The phrase entered by the student is compared (except 
for its first letter, so the first letter can be upper or lower case) with 
the phrase (minus its first letter) generated by the computer. 

If the two are the same a “Well done” message appears on the 
screen, and in due course the screen clears and another phrase is 
chosen. If the student gets the phrase wrong, there is a short 
pause, and it is repeated. This occurs until the phrase is typed in 
correctly. 

You should alter the 20 at the end of line 60 to keep the phrase on 
the screen for as long as you think necessary for the reading ability 
of the child. The phrases used should, of course, also be altered to 
suit the age and ability of the child. If you like you can take the place 
of the computer, and get the child to repeat the phrase to you, 
rather than type it in, if this seems a better way of strengthening 
your child's reading ability. Incidentally, the book | mentioned will 
give you a rich store of phrases and words to use in reading test 
programs of your own. 
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READING TEST 
i@ INK 4: PAPER 7: BORDER 7: ¢c 


Se Fan dai FO Ger meds) oa 
40 BEEP i7J,3ad: READ AS: NEXT 


5@ PRINT AT 18,8;fA 
6@ PAUSE {LEN Agi s3e 


t=] INPUT INK 2; ‘New enter the 
Khrase yeu", "have gust feadc”, 85 
Pe Se PRINT {INUERSE” Is = "SBS; 
19@ PAUSE Sea 
118 IF ASia TO 3} =Bsi2 FO ) THER 
BEEP .3,LEN A$: PRINT °° INK 3; 
FLASH 1; “Wett Ooo eu" ** Was co 


428 PRINT ‘*“Sorry, that was ne 


PRINT ‘Here it is again’ 
24@ PAUSE 2a@a: CLs 
oO FO Se 
16@ DATA “Watch the deg run" 
“The cat has Faur tegs 


18@ DATA “The ego is brown" 
19@ DATA “The sun is het" 
268 DATA "The Fax runs Qvickiy 
.21@ DATA “The duck swims Stowty 
Pp’ 


Children enjoy using the next program, DOODLE-BUG, to 
produce sketches and doodles, but we will be creating maps and 
diagrams with it. You can draw straight lines horizontally, vertically 
or diagonally using the keys shown below: 


T Y U 


NZ 


The ‘home’ key H at the centre has no effect. 
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DOODLE-BUG 


12 BORDER 6 

De INPUT “Initiat x coorainate 
or . x 

SB INPUT “Initial yy coordinate 
> 4 . y 

48 PLOT x. 

7@ LET c#=INKEYS 

Be LEP wave srogea tas + 


‘Om 


gga tw yA Tega td fee (leeE 
“aa LET Yau + COST se (OPH I sf 
a aie ee ae ee 3-f{cs= A te Loe 
23 

R@@ LET x=N- (x 2255124 {x <@} 

RBM LET yvsu-(ys2P5)+fu<se2 

Ree IF c#="s" 4 HEN STOrF 


238 GO Ta 4@ 


Type in the program and run it. Select your starting position using 
the pixel x and y coordinates as shown in the Spectrum manual 
(page 102 of the first edition). Line 70 checks to see which key you 
are pressing, and sets cS equal to this. Lines 80 and 90 change the 
x and y coordinates accordingly. If you press “m” then (cS = “m”) 
is true, and so takes the value 1. The rest of the expressions in lines 
80 and 90 are not true, and so equal 0. Thus x =x +1, andy =y+ 
1, and the next point will be plotted one position to the South-East 
of the first. Lines 100 and 110 prevent you from going outside the 
plotting area, which would result in a crash. Line 120 allows you to 
stop sketching by pressing the “s” key. 

You can save your works of art with SAVE “sketch” SCREENS. 
This gives your picture the name “sketch”, and stores it on tape. 
This simple sketch-pad program can be embellished in a variety of 
ways. You can rewrite line 120 as: 

{ \ 
120 IFcS="c" THEN GO TO 140 


“oc” for change passes control to line 140. There you can write 
statements such as INPUT “Ink colour?”; ink. Write INK ink; into 
line 40 after the PLOT statement, and you can now draw in colour. 
You can include similar statements so that your repertoire includes 
PAPER, OVER, FLASH, BRIGHT and INVERSE. The results which 


Using the Spectrum in education 107 


you can obtain can be quite elaborate, as the following sample 
shows: 


Sample run DOODLE-BUG: 


meme TY 
Rae 3 P& 
i he ene t S 
cr i ea : % 
wo] eos 
2 ; i ~., 
Pa i | re 
Ca : , 
¥v i i oe 
i bt . 
i i 
. SS 
\ —— i , 
\e ey rg 
_ ee 5 
_f Wet ‘ 2 
ce mm Sean 
ir 


al = 
, 3 
& 
aia | ry 


i io av; = i 


Which of the numbered states is 
BuUeens Lands 


108 Using the Spectrum in education 


The map of Australia was drawn using the original sketch-pad 
program, modified by inserting the following two lines: 


50 IF INKEYS <>“" THEN GOTO 50 
60 IFINKEYS ="" THEN GO TO 60 


This slows the program down so that it plots only one point each 
time that you press a key. You need to find a map that is exactly the 
right size to fit the plotting area on your TV screen. Trace the map 
onto a sheet of transparent plastic, and tape this to your TV screen. 
Use the program to copy the map onto the screen. Leave some 
space on the screen for questions and answers. 

When your outline is complete, save it. You can add to your map 
using direct commands; CIRCLE 55, 59, 2 will produce a small 
circle for a town. To find the coordinates of places on the map, use 
the program again. Draw a line to the required spot, stop the 
program, and print the values of x and y in a corner of the screen. 
Restart the program using GO TO 40 and repeat the process. 
Finally, reload a clean copy of the map, add your towns and cities, 
and save the finished version. 

You can apply the same technique to produce almost anything 
you like, from circuit diagrams in Physics to transverse sections of 
plant stems in Biology. 

The next task is to link your map or diagram to a question and 
answer program. If the QUIZ-MASTER program is used, it needs 
some modification. Replace line 40 with: 


40 LOAD “map” SCREENS 


You will also have to direct all PRINT statements to the bottom of 
the screen. The following sub-routine may help: 


350 REM CLEAR BOTTOM THREE LINES 
360 PRINT AT 19,0;e%;e3;e% 

370 PRINT AT 19,0; 

380 RETURN 


Now RUN 500 and enter your questions and answers. When you 
have saved this on tape, BREAK, and reload your map. Save this 
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using SAVE “map” SCREENS onto the same tape immediately 
following the question and answer program. Now when you load 
QUIZ-MASTER, it will automatically load the map and go on to the 
questions. 

As you've seen, in this chapter we've developed a range of 
programs which students will probably enjoy using, and which can 
be written without too large an investment of time. The programs 
fall mainly into the category of drill and practice exercises. 

To learn effectively a student needs: plenty of practice; instant 
knowledge of whether his or her answers are right or wrong; the 
ability to set his or her own rate of progress; and most importantly, 
the satisfaction that comes from successful achievement. 

There are other possible educational programs — such as those 
which use multiple choice answers, and ones based on shapes, 
such as parts of geometry — which we have not discussed. 
However, the material we have presented should give you a good 
point from which to develop your own software. 

If you still feel short of ideas, you could send away for catalogues 
of educational software for any computer. Simply reading the 
catalogue should be enough to spark more ideas than you can 
possible realise (in fact, this is one way | get ideas for programs in 
general, by reading descriptions of what other people’s programs 
do when run). 

Now that we've come to the end of this chapter, you should 
possess a number of simple but effective educational programs. 
When you are extending your collection, either with your own or 
with commercially-produced software, look for the following 
points: 


@ You should not be forced to progress through several screen- 
fulls of preliminary description each time you run the program. 


@ The amount of material on the screen at any time should be 
minimised, so that attention is focussed on the important 
details. 


@ Inthe presentation of text, different colours should be used with 
a purpose, as in the DIVISION program. 


@ It should not be possible to crash the program however you 
respond to the questions. 
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e |f your answer is wrong, the correct answer must be clearly 
displayed. 


e You should be able to work through the program at your own 
speed, without information disappearing before you can read It, 
and without periods of enforced inactivity. 

In the final analysis, a good program is one which achieves its 

objectives, and which is a pleasure to use. 


Suggestions for further reading: 


The Computer Tutor Orwig, Gary W., and Hodges, William S. (Winthrop Publishers, 
Inc., USA, 1981) 


The Standard Reading Tests Daniels, J. C. and Diack, Hunter (Chatto Educational 
Ltd., 1958) 


Problems for Computer Solution Rogowski, Stephen J. (Creative Computing Press, 
USA, 1979) 


Microcomputers in the Classroom Maddison, Alan (Hodder and Stoughton, 
London, 1982) 


Understanding Calculator Math Oliva, Ralph A. (ed.) (Texas Instruments Inc., Dallas, 
Texas; distributed by Tandy/Radio Shack, 1978) 
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Playing games with your 
Spectrum 


No matter why you bought your Spectrum, it is likely that you'll 
spend some of the time with it playing games. It is also likely that 
you'll soon realise that one of the great thrills of owning a computer 
is devising your own programs — games or whatever — and making 
them work. 

In this chapter, I'll be looking at a number of games. All of them 
will be explained in detail, with the intention of passing on some 
hints on the writing of games which may well be of some help to 
you when it comes to creating your own programs. 

| can well understand that you may be tempted to simply enter 
the final version of the game, without reading through the material 
which precedes and follows the listings. If you do this, you'll 
certainly end up with a program which works, but you'll miss the 
main point of this chapter. Try to restrain yourself, and follow 
through the descriptions, line by line, and for those programs 
which are introduced gradually, entering each part of it when you 
come to it in the description. 

The first two programs, NIGHTFALL and JACK-MAN, are 
explained in much greater detail than are some of the others. 
These are the ones you should certainly read carefully, even if you 
decide to skip the explanations of the later ones. There are many 
ideas in the first two programs which | think it is very useful to 
know, not only for understanding those particular programs, but for 
applying to other programming problems. 


NIGHTFALL 
The first game involves flying an aeroplane over a city and 
attempting to reduce the skyscraper to dust. The plane flies across 
the screen getting lower as it comes to the end of a line. Eventually 
't Crashes into a skyscraper, unless you have first destroyed the 
buildings. 

Our first need is to print up the skyscrapers. This can be done 
fairly easily by using a FOR/NEXT loop from 0 to 31 (the columns of 
the screen) with a ‘nested’ loop inside which prints blocks up the 
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screen for the skyscrapers. To make this clear try this program: 


3@ FOR a=@ oO 3i 

2B FOR b=l1i TO al 
32 PRINT AT b.a: "EY 
@@Q@ NEXT b 

S@ NEXT 2 


It will print a whole load of skyscrapers of equal length across the 
screen. Try altering the values of ‘B’ in line 20 to vary the height of 
the skyscrapers. 

However, this routine does not produce a very interesting 
skyline; it looks more like a large shoe-box than a city. To give the 
skyscrapers varying heights we need a random factor. Try 
changing line 20 to: 


20 FOR B=INT (RND*22) TO 21 


The skyline will now look much more varied. The routine is now 
beginning to create something which looks more like a city. 
However it lacks uniformity. The first routine makes a city that is 
too uniform, the second a city which is too random. We need a 
guide-line around which a random-factor can work. Rather than let 
a random-factor rule us, we need to control it. To this end we can 
bring in a ‘difficulty factor’. 

In order to plot a convincing-looking city we need a rough height 
around which to build skyscrapers. Some will be slightly taller than 
the average height, some will be smaller, but none will be very 
much taller or smaller. In the last routine the average height was 
eleven characters high; but some buildings were 21 characters 
high, while others were only one high. A difficult game would be 
where the average height was about 18, since your plane would 
soon crash into the building. An easier game would be where the 
average height was, say, five. Your plane would take quite a long 
time to get to that level and crash into a building. Obviously, on the 
easy game it would be stupid to have an average height of five and 
find that one or two buildings were 20 characters high, because the 
game would no longer be easy. 

At the beginning of the game we want to ask the user for a 
degree of difficulty (for example, in the range of one to nine). With 
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this, we could build skyscrapers at a rough height guided by the 
difficulty chosen. Try the following routine: 
4@ INPUT “difficulty (1-9) ",d0 
e OR 39 THEN GO TO 1k 
=_= — 


ot 


SS CLS. 

48 FOR a=8 TO 31 

S@ FOR b=d+INT (RND#¥d)} TO 21 
6@ PRINT AT b. oe; 'R 


Type in anumber from one to nine and the Spectrum will print up 
a fairly realistic skyline. Try putting in alow number and you will find 
that the city is low accordingly. What happens when you enter a 
number which is outside the range required? Why? Any program 
you write should contain a routine to reject invalid input. 

People often make a mistake when entering information via the 
keyboard, and if unchecked, the error can stop the program 
completely, or — if it continues to run — can confuse you with the 
results it generates. A single line which checks the range of the 
number entered can save problems. 

If you understand how the program works so far, we are ready to 
go on to the next stage: that of producing a moving aeroplane to fly 
across the city. 

First of all we need to choose what our plane looks like. 
Searching around the keyboard | can’t find any symbol which looks 
even vaguely like an aircraft of any sort. It looks as though we are 
going to have to employ user-defined graphics. Here’s a step by 
step way of doing it: 


1] Draw a grid of eight-by-eight squares 


2] Fill in squares until you have something which resembles an 
aircraft from the side. Even if it seems a bit square don’t worry, 
as it will probably look all right on the screen. 


Here’s the one | used: 
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Now go across each row and write down a zero if a square is not 
filled in, and a one if it is. For the above character you would get 


eseseeseoe sco 
eseeor-r--sese 
-eor-r--esese 
eo-e-r-seses 
sorrrsese S 
eseor--seseso 
eseeor-r-rsesos 
eseeo-eoeocse 


Each row of zeros and/or ones is called a binary number. 
3] Using your Spectrum, go to each row in turn and type: 

PRINT BIN (the series of zeros and ones) 
and write down the ordinary number it prints up, alongside the 
binary number you have just typed in. For example, for the third 
row you would type: 


PRINT BIN 01100000 


and the computer would display the number 96. You write this 
down beside the number on the piece of paper, as follows: 


01100000 96 
Do not ignore any trailing zeros as: 


0110000 0=96 
but 
011000=24 
You should now have eight numbers. If you used the above 


example you will have the numbers 0, 0, 96, 126, 127, 8, 16 and 32 
in that order. 
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Clear your Spectrum (by using NEW) and type: 


1@ CATR [Cyeaur €ight Rumbersd 
2@ FOR s=@ TO F 
3o@ READ & PORE USR “a'+3a.b 


The DATA statement should contain your eight numbers 
separated by commas. Run this and nothing seems to happen. 
However, now get into graphics mode and type the letter ‘a’, and 
there is your tiny aircraft. You can now NEW the program if you 
wish and the plane will still be inside the computer ready for use, in 
fact the only way to get rid of it is to pull out the plug or define anew 
character over it. As well as graphic ‘a’ you can get the plane by 
using ‘CHR% 144’. The above method can be used for any 
character you want to design of your own. 

Armed with the aeroplane character we can now go on to make It 
move across the city and get lower. Type in the last ‘city-maker’ 
routine and add the following lines (in line 20, CHRS 144 represents 
your graphics-aeroplane): 


LET u=a 

LET p=8 

PRINT AT u.p CHR 144 

LET p=p+i 

PRINT AT us,p-a;" * 

IF p=S2 THEN LET p=@: LET & 
> BEEP .4a.u 

Go To 148 


i 


Poe be pope pe bs 
ID + OJ Fs FWD 


at tL 


You will be asked for a ‘difficulty’, and on entering it, you will see 
a city printed. Then, you will see alittle plane ‘fly’ across the screen 
and get lower, ‘BEEPing’ as it goes (the ever-rising notes are 
designed to increase the tension). The plane will soon go through a 
building and carry on until it goes off the bottom of the screen and 
stops with an error message. 

What we want now is to have a line which checks where the 
plane is being printed, and if it finds this is a skyscraper, blows the 
plane up. For this we need two routines: one to check for a crash, 
and a routine to print an explosion. 
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First the crash-check routine — there are two ways of doing this: 


SCREENS: 
Replace line 60 with: 

60 PRINT AT b,a;INVERSE 1:”"X” (capital X) 
and line 14 with: 

140 IF SCREENS (u,p)=“X" THEN STOP 


SCREENS can read letters and therefore the program will stop 
when the plane hits an ‘X’. This means that the skyscraper-printing 
routine will have to be altered so that INVERSE ‘X's are printed 
instead of graphic-blocks, which are not read by SCREENS. 


ATTR: 
To use the ATTR function, replace line 60 with: 

60 PRINT AT b,a; INK 5; PAPER 0: “graphic-block” 
and replace line 140 with: 

140 IF ATTR (u,p)=5 THEN STOP 


This works by stopping the program whenever the plane comes 
to any character which is green on black and is not flashing and has 
no extra brightness. The disadvantage of this method is that itis a 
little complicated, and if, in other programs, there are many 
different characters whizzing all over the place, it gets a bit 
confusing trying to work out each character's paper colour and the 
like. 

If you wanted to stop the program when the plane hit a yellow, 
flashing blob you would change line 140 to: 


140 IF ATTR (u,p)=134 THEN STOP 
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Can you see how this works? 


128 if the character is flashing, @ if steady yes: 1 x 128 = 128 


64 if the character is extra bright, 0 if not no: 0x 64=0 
8 x the paper colour (black = @) 8x0=0 
1 x the ink colour (yellow = 6) 1x6=6 

TOTAL = 134 


Out of the two methods, the easiest to use here is SCREENS, in 
the form: 


PRINT AT b,a; INVERSE 1;“X" 
IF SCREENS (u,p)="X" THEN. ........ 


As there are only two things that the plane will come across, the 
air and the skyscraper, this function satisfies our requirements. 
Replace line 140 with: 

140 IF SCREENS (u,p)="X" THEN STOP 
add line 142: 

142 PRINT AT u,p; CHRS 144 
and not forgetting line 60: 

60 PRINT AT b,a; INVERSE 1;“X” 


The program will now STOP when the plane hits a building. 


A STOP is a bit boring and unimaginative. What we need is an 
exciting explosion as the plane shatters. Try the following: 


S@G LET x=p#68: LET y=(21-ui #8 
SQS FOR s=1 TO 48 

Sear PLOT x,4u 

21@ DRAW INT (RND+#256) -x,INT (RF 
ND#*158) -y 

220 BEEP .1,26: BEEP .f1,18 
SsaQ NEXT a 
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Pick a point on the screen and assign the co-ordinates to u and p, 
such as LET u=11: LET p=16. Enter these in directly. Now type: 
GO TO 200 and press ENTER. 

You should see the point on the screen ‘explode’, accompanied 
by suitable noises. All we have to do now is change line 140 to: 


140 IF SCREENS (u,p)="X”" THEN GO TO 200 
RUN the whole program and you will get: 


a] a city plotted up on to the screen, 
b] a plane whizzing along getting lower and lower; and 
c] the plane hitting a building and exploding. 


Now, read through the program again. Make sure you 
understand how it works. Now, we're ready to add the final parts. 
These involve having a bomb which you can drop from the plane to 
destroy the skyscrapers and prolong your flight, and then dressing 
the program up to make it look more professional. 

Unfortunately, you are unlikely to completely finish this, or any 
game. No sooner have you SAVEd it and sat back admiring what 
you believe to be the definitive version, than someone will come 

.along, play it, and give you a great idea on how to improve it. 

However, before worrying about any of that, we need to add the 
‘bomb’ bit of the program. For this, we need a ‘flag’. A flag is an 
indicator of the state something is in. It is usually given a value of 1 
for on, and @ for off. In this program the flag which we'll call ‘f’, will 
be equal to one when the bombis in the air, and zero when itis not. 
At the beginning we need to assign it to zero as the bomb is not 
falling. This is how the program should look so far with ‘f’ being set 
equal to zero: 


19 INPutT “difficulty (1-ai"ce 
20 IF 4d<i aR d°>9 THEN Go To’ ae 
S@ LET d=12-4 

SS cia 

4@ FOR s=a@ To 32 

S@ FOR b=d+INT fRND#d) TO 22 
&O PRINT AT &.8; INVERSE 4: "X' 
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1@@ LET p=e 

11@ LET Fee 

14@ IF SCREENS tTU,PI='N" THEN G 
Q TO 2e0e8 


A442 PRINT AT u Pe CARS ade 
266 LET pa=pe4i 
A1?G@ FRINT At u,.P-as' ' 
IF p23 THEN LE Ps: LET vu 
SUFI]: BEEF .asu 
288 Go Ta 41388 
SOQ Ler BSPReE: LET g=(S4-u1 28 
205 FOR s=2 TO 4a 
2Qr PLOT xX.4 
218 DRAW INT (RND#2562) -N, INT (R 


220 BEEP 11,20: BEEP -81,418 
2B3Q NExT 4 


The bomb is ‘off’ (f = 0). What we need is a means of allowing 
the user to drop a bomb (make f = 1). One easy way would be to 
add a line like: 


148 IF INKEY$ <>””" THEN LET f=1 


INKEY$ holds the character of the key being pressed on the 
keyboard (it is ‘empty’ if no key is being pressed). The routine 
changes f to 1 when you press any key, when INKEY$ is not equal 
to “". We could change the routine a little so the bomb is only 
dropped when the zero-key is pressed. To do this you would need: 


148 IF INKEYS ="0" THEN LET f=1 


However, it is easier to play (and remember) if you can press any 
key to drop the bomb, so we'll leave 148 to allow any key to be 
pressed. 

Next we need two variables representing the position of the 
bomb on the screen. When the bomb is ‘off’ it is inside the aircraft 
ready to be dropped: 


144 IF f=0 THEN LET a=u: LET t=p (‘a’ and 't’ are the co- 
ordinates of the bomb) 


We next need a character which looks like a bomb. A full-stop is 
adequate, but you may prefer to define your own bomb. Using the 
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method outlined earlier, see if you can design a bomb-character. 
One bomb-shape is as follows: 


ie eee 
a a 


The line which defines the character should read: 
POKE USR “b”+a,b 

and not: 
POKE USR “a” +a,b 


as this will blot out the plane-character. 

To access this new bomb-character use graphic-b or CHRS 145. 
lf you prefer the simple life, you can use a full-stop as a bomb. In 
this case, use a full-stop wherever | have put ‘CHR$ 145’. 

With our bomb-shape (or full-stop) at the ready, we are now 
ready to actually print it. As the bomb is at exactly the same 
position as the plane when it is not falling (when f = 0), we do not 
want to print it up until it starts falling, or the bomb will blank out the 
plane. Line 158 will print the bomb: 


158 IF f=1 THEN PRINT AT a,t; CHRS 145: BEEP .01,60—a 


The bomb will now be printed up whenever you press a button. It 
will not fall however, until you add the following line 155, which 
blanks out the bomb and adds one onto the variable ‘a’ which in 
effect moves it down: 


155 IF f=1 THEN PRINT ATa,t;” “: LETa=a+1 
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Although we now have a falling bomb, it is not a very good one 
because it carries on down to the bottom and halts the program 
with an error-code. What is needed is a line which checks whether 
the bomb has hit a building (similar to line 140), or reached the 
bottom of the screen. 


157 IF SCREENS (a,t)="X" OR a=21 THEN GO TO 300 
Now we can write a ‘building-blowing-up’ routine at 300: 


300 FORa=aTO 21 

310 IFRND>.99 THEN GO TO 340 
315 BEEP .005,a—20 

320 PRINTATat;” ” 

330 NEXT a 

340 LET f=0: GO TO 140 


All we need now is: 
235 GOTO10 


and we have a continuous game. It is quite difficult to aim and drop 
the bomb on the buildings you want to destroy. 
Here is a complete listing of the game so far: 


22 INPUT "BAT SSSUty : 
x 2S THEN Go To 1a 
S@ LET d=13-d 


4@ FOR a=@ To 31 

SQ FOR b=d+INT (RND#d) TO 21 
6@ PRINT AT ba: INVERSE a; °x" 
78 NEXT b 


28 GF’ alaens wipye-x" THEN @ 
-REEN ULPI=a"w T 
S TO See - all 
142 PRINT AT uU.P:SCHRS 144 
i440 IF fs@ THEN LET S=2u: LET t= 


p 
148 IF INKEYS$<o"" THEN LET Fei 
.iSS IF Fei THEN PRINT AT a.ts" 
 ? LET asa+ia 
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1S? IF SCREENS (3,t) ="X" OR 3a=2 
a8 THEN Go Ta_Seae 

458 IF fei THEN PRINT AT 2a.t. CH 
R$ 145: BEEP .@1,.6@-a 

16@ LET p=pt+i 

37@ PRINT AT u,p-a;" " 

18a IF p=32 THEN LET P=8: LET & 


Baa LET x=px&: LET y=a(B1l-vis& 
Oo 4@ 


DRAW he (RNDs256) -x,INT tR 
-1,20@: BEEP .@1.1@ 


235 Geo Ta 1@ 

3ae FOR asa TO 21 

310 IF RND>.99 THEN GO To 340 
315 BEEP .@@5,a-20 

32e PRINT AT 8.te" " 


The game works, but it lacks several things. In its present form 
there is no colour, and no scoring facilities. Try and fit them into the 
program (you could use a variable ‘s’ and add one onto it every 
time a character of skyscraper is wiped out by a bomb — round 
about line 300 or so). You will need to print the score at the end of 
the game. In the final version at the end of this section | have 
included a ‘highest score’ feature. This is fairly simple to add. Try 
adding little bits to the program to make it smarter. You could try 
defining your own skyscraper-character with windows rather than 
a boring INVERSE ‘X’. 

The ‘final’ version has DATA statements to define the user- 
defined graphic characters, so that it can be typed in and run as itis. 


‘Final’ colour version of NIGHTFALL: 


LET hH=@8 

TF h=@ THEN GO Sus Ieee 

LET s=2 

PAPER @: INK &: BQORDER 1 
PRINT AT Bl,@;, "difficulty § 
Q) ?": LET dS=SINKEYS: IF LE 
1 OR CODE d&<4a QR CODE ds 
Ga To 3e 


@d=12-VAL ds 
Ro a=8 TO 31 


AO BONN 


vZe 


ol 
GIGI + Ob 


gonna 
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S@ FOR bed+INT (RNDsd) To 21 
“gon PRINT PAPER @:) AT b.a; CHR 1 

FQ NEXT bb 

SQ NEXT a 

SQ LET uae 

1@@ LET p=e 


11@ LET F=e 

1358 PRINT AT 21,8; CHRS 2PA+CHRSE 
Led 3+" press any key ta bomb" 

14@ PRINT AT u.pPp;: IF PEEK (PEE 
K 23684+256PEEK 2368S) =2a5S THEN 
Go Ta Bae 

ld#d2 PRINT INK 4; CHRS it44 

ida IF f=@ THEN LET azsu: LET t= 
a] 

448 IF INKEYS<o"" THEN LET FH 
1S5 IF fel THEN PRINT AT a.t;" 
“sien @=at+1: IF sae=22 THEN Go TO 
15? PRINT AT 8,t;: IF PEEK (PEF 
K _ S939684+256sPEEK 23685) =<255 THEN 

GQ TA 3aa 

158 IF F=i THEN PRINT INK 2; CHR 
& 145: BEEP .@1,68-a 

16@ LET pe=pei 

iF PRINT AT ulp-a3" 

18@ IF p=32 THEN LET p=: LET u 
=Udtil: BEEP .a.cu 

185 IF us22 THEN GO Ta izaae 

198 GO Ta iste 

2O@Q LET x=p#8: LET v=(21-u3#s 
2OQ5 FOR a=13 TQ 5s STEP 32a 

2a? PLOT x, 

2i@ ORAW INR 6; INT VRANDs250! -x . 
INT (RND#s288) -y 

220 BEEP .3,2@: BEEP .@1,.108 

238 NEXT a 

235 GO Ta 4ae 

S@@Q FOR a=a TR BL 

SiQ@ IF RNDO>.S835 THEN Ga Ta 34a 
315 BEEP ,ae@5.a-2 

S2@Q PRINT AT ats" " 

SeS LET sS=84+4: IF sv2S@=INT ts vy 
258) THEN POKE 23624,PEEK 23624+ 


SS@Q NEXT a 

Bd@Q LET F=@: GO Ta 148 

4@@ IF his THEN LET hes 

41@ PRINT AT @.8; "scare: “3s.%h 
a-scare: “ih 

42€@ GO Ta § 


280@ DATA "a". @,.@,96,126,127,8.1 
S,.0,"b",.@.40.8.32,28,32,80,8,"cCc".2 
S5.153.1535,255,258,153,153,255 
1@@5 FOR F=i TO 3 
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i@s@ NEXT a 


3445 NEXT F 

laS@ RETURN 

120@ CATA 8.4.7 
t2ie FOR a=i To 3 
3321S READ c 

{BBQ FOR b=2 Ta 3 
123Q BEEP 1-3.¢ 
{b4a@ NEXT b&b 

325@ NEXT a 

126@ BEEP 1,12 
1270 GO Ta 322 


NIGHTFALL in progress: 


- 


Pei 
na 
r] 

Pee 
ee 
ae 
az 
Pad 
an 
as 


— 
x = 
—_ 
~t — 
Eg = 
< — a 
é = 
Pa = ae 
a ee 
- = 
= - 
P as 
2 asf Pe eeee, 
~ —_— 
—_—— 
—_— 


eearenerete # 
beweear ses - 


Playing games with your Spectrum 125 


Hopefully the explanation of this game has given you a few ideas 
on how games can be developed. We'll be looking at several other 
games in the rest of this chapter, but not in quite as much detail as 
NIGHTFALL. 


JACK-MAN 

This program is based very loosely on DODGEM (with a hint of 
PAC-MAN), in which the player propels a little car around a maze, 
scoring points as it runs over dots within the maze, and trying to 
avoid running head-on into a car ‘driven’ by the computer. 

The scenario for JACK-MAN is less gruesome. JACK is a 
dastardly grape thief within an elaborately-designed French 
vineyard. The object of the game is guide Jack around the vineyard 
to eat as many grapes as possible. At the same time, he must elude 
the irate farmer. 

Here is a plan of the vineyard, complete with grapes: 


FSF se eee e eee 


“OUACACAUACA TAA CAA 


NNER ENERMMARMREARRRMRRK NSN SK ENEN 
Roo TT | MNMXRXRMMXXNNNMXNNMMO CC te 
M7 TS 2 8 * | RRR RRMRNRM RRR MRK MT ee 
"7" * * "MRR RMRRNRRRRMRRMRRMRN CC 
ae te ae ae WR WRK ee 
RRRRRRKRN SEMEN EN ER 
 * * Se eee eek eX SM EE 


eee eRe pea 
REXSN SNES SESS 


Nearly a third of the final program is taken up by the routine that 
prints up the vineyard with its different-coloured walls and grapes 
(all the grapes are the same colour as are all the walls, but the 
grapes are coloured differently from the walls). It would be wise to 
SAVE the routine below, as it is so long, so that you can add to it 
later rather than have to re-type it if you lose it for some reason. 
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Note that the G’s must be entered in the graphics mode. 


= 
S LET ea, ck" 


i) 
fe 
“ 


hy 
Wo 
he ty 


Pa 
25,658,568, 1238, if, 7 9,2 
id DATA 6@,126,.25 
»-66.,.8.,.6.,8,. a.a, Se, &B 
18 SATA Se. 126,25 
»-226,6@.8,6, .6@,22 
2e CATA 24a, ttt 24d. 
ige 
=sS FOR a=8 TQ F 
Be FAR b=8 TO F 
4& READ c 
Se FORE USAR CHRS (14448 +b. 
6@Q NEXT b 
Fe NEXT 3 
FS LET s=@: LET v= 
FP LET zed: LET ye=@: PAPER S: 
INVERSE 2 
FS LET F=8 
FS CLs 
SQ PRINT INK 2; 'XXRXRRKXARARAXXE 
MRR MM KR EN KRM EMER 
Ge IF F=2 THEN RETURN 


his Ci ps 
PR. > 
» PM 


i of 


“n 


1Be PRINT INK Zz; "x" INK ys “GGG 
GGGGGGESGG* *** GG&GEcbcEEccs"; IN 
ee Se ae a 

Lie IF Fei THEN Go To 28a 

1S@ PRINT INK =; oe 2 INK we "GG 

INK 2: " XXREXRERRMEK' GS > INK ya t’’ 
ees INK 2; MRRKR KKK » INK & 
3°G"; INK Sees 

ASQ IF Fei THEN GO TO 188 

Ad@ PRINT INK 35 °K"3 INK ys “G'S 

WINK 2, "°%"; INK ys “s6eG6eGc6e66cs °* 

'GGGG6GG6G66cs6" ; > INK 2; °°"; INK G 

rs ida ra 3 INK Zz: rege te 


25@ IF fF=2 THEN GO TO 228 
16@ PRINT INK 2. °X") INK ys "G3 
INK Zi "RK"> INK 4, "GG" INK 2; "XR 


XMM EMER OINK og, INK 25" 
KAM MMRMMMM'D INK 9) "6G" INK 22° 
“INK ua; "GG" INK 2; 4" 

LFQ@ If Fi THEN ea’ Ta ide 

ASQ PRINT INK 25 "RK", INK Ys "GS 

INK 2; "RK"3 INK ys sets > INK 2; re ae 
> INK Ee ‘eaaacecsé - °° “GGGGG6G66G" 
e INK Pex INK 9s "GG"; INK 23° 
“5 INK _ a3 “"G"y) INK 2: "sR" 

i9@ IF f=i THEN GO TO 168 

2DQ PRINT INK 2; °€M"; INK os “G'S 
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INK Zi; Rx". INK we “Gis INK 2 scx" 
> INK Gi: "G"s INK 253 "XRMXEMRERK'G FT 
NE ue 777") INK ZL UMMAMNXER'G OF 
NR ows "GG", INK ziux: INK 9: "G"; 
ZINK Zz ,XK') INK g,"G"; INK 23 "R" 

Sle IF Fei THEN Ga Te 18@ 

220 PRINT INK ZpUMOG INK gy; "GG"; 

INK “x's INK yg; "G"; INK zyx 
3 INK ae ae INK = 3 °° INK ly “G&G 
GaGGaa’*** “GEGGEGE": INK Soho OF 
NRO "G'S INK 22M") INK 22'S": 
INK fic; INK vy; UG") INK S53 Me 

SaBa IF Fea THEN GO TR Sere 

Sa0Q PRINT INK 23 °R'"? INK us. "G's 

INK =; °'R'") INK ge"; INK z>"X" 
3 INK ui Gy: INK ZiuUésM™: INK Ul"'G 
“y IONK to KN OCR REE INK 

ue "Gs * INK ZievRs<') INK ou; “G's: IN 
RoFi7e') INK ue “G"> INR F2°N'SD OT 
NK wi "G's INK 2; °°" 

BS IF FH=i THEN GO To 228 

SEQ FOR a=1 TO 4 

27o PRINT INK 2; "XX"; INK yu; tt’ 7’ 
7 "> INK Z5 UMRXXXMXXRERMXXXK"; 

INK po PORE ee  OENK: Ce Ox 

2SQ NEXT a 

SO@ LET FH 

SOG GO SUB 246 

B@S INVERSE & 

BaP GO SUB 1648 

Sle LET us28 

315 PAPER @: INK 6 

Bea LET p=1?f 

Bae LET duse 

SSS CET tusd 


Having assigned starting values to the high score and the like 
(see the list of variables at the end) and printed up the vineyard, the 
program jumps to a routine which: 


[i] prints the ‘super grape’, a flashing grape which scores five points 
when eaten rather than the usual one point; once eaten by either 
the farmer or Jack, it moves to another part of the vineyard; 


[ii] plays a little tune. Many arcade games play a tune to start with 
and after playing the game a number of times, this tune gets on 
your nerves. If the music irritates you in this program, by all means 
leave it out. The Spectrum reads the notes for the music from the 
DATA statement at line 1050. 


As the program jumps to this routine whenever a ‘sheet’ is 
cleared, the high score changes when the score goes beyond it. 
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On returning from the subroutine most of the other variables 
used during the game are set to their starting values. 

The program then continues on to the main part of the program 
which sends the action to different subroutines when the player 
wants to move Jack, or when Jack hits a wall. 


The subroutines are as follows: 


a] Automatic Jack-moving Routine 

This changes the direction and the character of Jack when he hits a 
wall, that is, if he is moving east and he hits a wall, the program 
automatically changes his direction so that he is moving north, and 
changes the character used so that he is also ‘chomping’ 
northwards. The player has no control over this. Jack is always 
moving anti-clockwise. 


b] Manual Jack-moving Routine 

Each row of grapes is closed off by a wall and therefore Jack cannot 
move across the rows. However there are four gaps where Jack 
can move to new lines of grapes and/or avoid the oncoming farmer. 
This routine is utilized when [i] Jack is in a gap and [ii] when the 
player is pressing a key. The routine checks whether the player is 
trying to move Jack in a valid direction, and if so moves Jack, 
adjusts the relevant variables and sounds a note to help the user. If 
the user tries to move Jack illegally, a different note is sounded. 


c] Automatic Farmer-moving Routine 
This adjusts the farmer's direction when he hits a wall (see 
Automatic Jack-moving Routine). 


d] Manual Farmer-moving Routine 

This routine is called when [i] the farmer is in a gap and [ii] the 
farmer is not in the same line of grapes as Jack. Therefore the 
farmer is always on par for a collison with Jack. To start off with, 
however, he can only move across by one, but as Jack clears more 
and more sheets, the farmer's manoeuvrability increases and the 
game becomes more difficult. 


e] Sheet Clearing Routine 

This is used when Jack has eaten all the grapes, and sets up a new 
vineyard. It is not so much a subroutine as a series of commands 
which call up parts of other subroutines. 


Playing games with your Spectrum 129 


f] End of Game Routine 

This is called when the farmer ‘hits’ Jack It shrivels Jack up whilst 
playing suitable sound-effects and alters the high score, if the 
player has achieved one, asking for his or her name. It then sends 
the action back to the beginning (without resetting the high score 
variable). 


g] ‘Super-grape’ Routine 

This is called at the beginning of the program but is also called 
when Jack eats a super-grape. It blanks out the old ‘super-grape’ 
(by resetting IS) and then picks a point at random from the screen 
and checks whether it is a suitable point to place a new ‘super- 
grape’. If it is not, then it goes back and picks another random point. 
A suitable point is defined as: 


i apoint which is not on a wall 

ii a point which is not in a gap 

iii. a point which is on an ordinary grape 

iv a point which is on a place where Jack has eaten a grape 
when more than half the grapes have been eaten. 


The main program moves Jack and the farmer in their relevant 
directions and calls up any of the above routines when needed. The 
subroutines are situated as follows: 


a] Automatic Jack-moving Routine lines 1000 — 1015 
b] Manual Jack-moving Routine lines 565 — 700 
c] Automatic Farmer-moving Routine lines 1020 — 1030 
d] Manual Farmer-moving Routine lines 710 — 790 
e] End of Game Routine lines 800 — 900 
f] ‘Super-grape’ Routine lines 1150 — 1250 


| worked on each routine in turn, and then perfected the game as 
a whole. 

You might find it easier to enter the program if you ask a friend to 
read out the listing (especially the vineyard-printing routine at the 
beginning with all its INKs and PAPERs). 

When typing in the program, it is imperative that you use 
graphics G's and not just ordinary G's, or the grapes will not be 
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printed up. You might like to try typing in the part of the program 


that defines the user-graphics first and then you will see a grape 
come up whenever you use graphics G. 


Final listing JACK-MAN 


= LET h=8 
BE LET eg$="“clack* 
410 DATA 60,126,240. 224,224,248 
126,60 
12 DATA @,.66,195,195,2831,e55.,2 
#6,60,60,126,15,7,7,15,126,68 
44 DATA 6@,126,.255,251,195, 195 
66,0,6,2,08,0,68,60,68, 68 
18 DAT 6@,126,255.255,255,255 
-126,60,0,.6,65,608,126,6@,24,0 
one DATA 24,60@,24,255.24,24,36, 
2t FOR a Ta 
Ta ¥ 


SQ PORE USAR CHR (iddtar +b. ct 


7S LET s=@: LET w=1 

7? LET zed: LET y=@: FAPER 2: 
INUERSE 2 

Fe LET F=6 

7a CLS 

S&@ PRINT INK =; “NXNXARXAXXXXRAN 
XXXXXRRANARANRNARARN 

9@ IF f=1 THEN RETURN 

ae PRINT INK =; "XM's INK us "GGG 
> sGGGGGGGGG'*’ “cGEGEGeGESESE" TH 

Zi°x" 
“sha IF fei THEN GO TO 8&8 
328 PRINT INK z3"€M"; INK ys "UG": 
INK Zp UNXNNRNRNRANKNE INK ys"? 
27 TNK za NXNMNNNNNXNXNX'Y INK OY 
a ’ehs TINK 2g UX" 

130 IF Ff=il THEN GO TO 188 

L4Q PRINT INK zi"'s'": INK ye UGS 
INK zi“; EINK ys: "GGGGGEEGGGG’ 
’* GGGGGGGGGGGE"; INK zs"N“s INK Y 
2°6"y; INK zyx" 

3508 IF f=32 THEN GO TOG ife 

360 PRINT INK Zs “XM'S EINK ys "GG": 
INK zi "NN"; ZINK os "G's INK 2) "XX 
RXXNXXXX"G INK us’??? '; INK 237°" 
XX XRXXXXARK" a 93S, INK 2; °°S 


A7VO® IF f=2 THEN GO TG 149 
488 PRINT INK zs; “X's INK gs "GG": 


wes 
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INK Zz bap ery INK ge Gs INK zZ3 Baage ss 
i INK &; “GGGGS iecée’ *- ceacceece" 
. PNK Za"K" 2 INK ws" G0i INK 25° 
2 SNK Ye "OE INR =<" 

too Gr "+=1 THEN GO’ TO_160 

BAGQ PRINT INK oz; "XM"; INK ys "G2; 
INK Z,°X"; INK 93 "GS; INK 2) "x" 
; INK QO; "@"j INK 23 "XXXXXXXX"; FT 
NK yet t eed INK 23 UXXNXXXRK"G I 
NKR given; INK zs °xos INK 9s "e"; 
INK 23 "XM"; INK U3 "G"G INK 25 "x" 


TINK G;"G"; INK 23 "Xs INK 93 "S 


Gecess:” * “Soaccee" >; ENK 2, °X"; a: 
NRK us we 3°) 5 INK . ;ux! . INK y3 "GC" 5 
INK 2; "XM" INK _ 4; ; ie >; EINK 235°" 


238 IF fei THEN Go To 200 

24@ PRINT INK Zz; "RN"; INK gs “G's 
INK 2; °N"U INK a oe tage INK 2, °°" 
> INK y; "G'S; INK g, "xh, INK 9; "6 
"> INK by Baek RN RM RRS INK 
Uo > INR 2 ;"M": INK us "GG": IN 
ew INK us "Gy EINK Zs "'x"; Ff 
eG’; INK 2; x" 
F F=i THEN GO TG 228 
oR a=1 TO 4 
PRINT INK zi"e": INK gi ttt? 
INK BE KM RN KKH 
Sepa hats oye tose oe EPI, ara ok 


a 

=i 

Go SUB 240 
INVERSE © 
GO_SUEB. 1646 


INK & 


Zn. 
itt 
be 
oO 


LOLI GU Ny hy = fight 


Utd DAS Dee Doe Le 
OF F GIGI be 


Ce DAL 
OO LOL) a 
Zo > OTe 
t- 
Mt 
~| 


RIE EQ oz 
r 
m 
| 


SUN SVNGGNe 16 
c 
ny 
| 
SPEEA Ob 


. 
° 
” 
° 


eer een ao] ee 


n 
QGerrigweR OD Te 
CRNA BOLT I 


<1 
75 PRINT A 2B; PRFER @; INK 
ag Sa a eta. 


TIF INKEY#<o"" THEN BEEP .83 
PRINT AT up; INK &; CHRS C 


eB Sc 
9 Seng 

r 

m 

| 

nm 

" 

= 

be 

pp 


$e LI Cae: 


132 
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440 IF SCREENS (u¢tdu,predpi="x" 
THEN GO Ta 18980 

46@ PRINT AT 8,.t; INK 339% 
_47@ IF SCREEN {a+da,ttdti= 
THEN GO TQ 1@228 

4308 LET 39S§=SCREENS (atda, 
435 IF ATTR tatada,tedtis4d 

MN LET g#="*,* 
EBGa IF ge s"’* THEN LET gq=v 
i IF wEeenrs AND OS<c>", 


vi tf 


LET |a=atda: LET t=tt#dt 
zF @2=b3 AND tert THEN GO Su 


IF SCREENS f{38,t3="'°" AND LG 
THEN GG SUB Fia8 

PRINT AT a.ti'“H" 

PRINT AT ou,P; INK By ls 

LET t=t¢du: LET p=apedp 

IF ATTR tu,Pp)=6 THEN Ga To 


LET m=@: LET tLS=SCREENS (Cu. 
Foige"" THEN LET ig$=".,": LE 


oo U=Sba AND pert THEN Ga Sti 


PRINT AP ups MF 

IF m=1 THEN LET s=8+1: LET 
+i: BEEP .@@5,-10: BEEP .ae 
PRINT AT 3,17;5 

IF 32}=224 THEN vans TO Tiie 
IF INKEYS$="" GR tg="." THEN 


LET i S=INKEYS 
Ie CODE INKEY#<S23 OR CODE I 
+56 THEN GO TO 4&9 
RESTORE 565 
DATA du. "B"."F" dp, "S", "a" 
FOR i=1 TO 2 
READ J: READ J$: READ ks 
610 IF j=@ AND INKEY$<: 35 AND 
NREY $ < 2k $ THEN GO TQ 486 
B20 NEXT i 


fi 


CLM. OF Onn 


if 
LOOM LOCH 1 CONES Fe Fe [mp be he IT 


1] 
IAM Gn gee~In wl 


WO Am ho I i AG 


or | 


rH 


fil 
cam 0) ch 


Ayia 


TOO OI fo 
~| 
o 
p 
Gh 
a2 


id 


$4 


530 LET wisu: LET pis=p 

B4B LET udba=uri fai ge"G"3 -fagae' rs 
i#idu=83 #2 

650 LET pi=p+ti (aig="&E3 -(2 F="S"'3 
I} ¥(dpP=O3 #2 

S55 LET n=(igsz="6" 1 Ftdp=ali¢+ligs=" 
sz") ¥tdpe-l)¢tige"S') {dur +(is= 
“S'"a £{dux-L3 

S6Q@ IF n=8 THEN LET n=-1 

B65 IF lj+tn=8 OR Liuitn=5 THEN Ga 
TO 4&2 

672 LET tLusiid¢n 

SYS PRINT AT u,.P: INK 3; 18 
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LET w=u2: LET p=pi 

PRINT AT up "F" 

BEEP .@1.10 

GO TO 2on 

IF INT qg=@ THEN RETURN 

LET tFstlFretl Fel gi -€bhFetud 
LET q=q-1 

LET oF (LF sbtjQretda=-2I eb Pvt 


IF _o=@ THEN LET o=-1#(dt=@) 


LET eel es 
LET aGQ=(lLFrbgletdtaeLi+etb Fs 


QONGeane ty 


a 
wv 
" 

be 
oat 


EN LET o=-1si(da=@)} 


oid Oh CLE Ste CM ea bs OAD th 
oe) 


QWQIaLagn 
rT 
m 
~| 


sft da de ld ed od OT 


1D 
g 


RETURN 
BOG RESTORE cae 
BOS FOR a=1 TG a 
S10 READ b&S$: READ 
S2Q PRINT AT v.sPs bs 
S630 BEEP i.r 
S40 NEXT a 
SS0@ FCR a=1 TO 6a 
eos Sear -@3,25 
ra XT a ; 
PRINT AT 37,11; “GANE OUER™ 
IF h<«s THEN INPUT "“‘You have 
ained the hi-score: Please & 
in. your name and Press £ 
- “3esS: ITF LEN @€$3332 THEN ,PR 
AT u,Pp-S i "Teo LONGQG.~zssaaaeezen' 5 
Oo Saa 
IF nis THEN LET hR=s 
IF INKEY S=""" THEN GO Ta S85 
Go To F5 
DATA “F“,.38,"E",.26,"."°,18," 


IF dus=@ THEN LET du=-dp: LE 

®: LET cH=c+1: GO TO 4268 

THEN LET dpsdu: LET 
> EF c=145 THEN 


AMG eend-] 
4% aly 


WH 
Zap eo 


GQ sm MyO 


fet maf fet 
" 


4 
" 

pr 
4 pmo 


IBVOEOQN 


ps fs 
4ICHAG- GD oHes 
me 
4 OOMDVGH: HOW 
0K 
0 
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a iis 
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LET da=dt: LET 
LEY dt=-da: LE 
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q) 
wo 
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Hed Agaca 
o 
Bo WW Aig 
++ AQ ONLTeT 
meme 


IMABOGE a 
Bnz 


“+9900 goagOmag 
© ba) fe Co + 
NPAMNWEY Hn OU 
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Choo wo 


wd Bod ft fost fod fot od Ja 
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by WD 
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»~ ty 
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19 00) > be OS 
NHagQe. WH 


fo fo fod fot fod bes ie iB 
PEGE. ~ & 
ip 
iN 
| 
7 
x 
in 
= 
I 
m 
2 
if 
“Mm 
| 
Pe 
" 
ini 


2a PRINT AT 21,9; PAPER 42 The 


a 
nw 

| 

i 
bat 
“ 
% 
7 
I 
Ua 
rv 
Yad 


RETURN 
LET v=¥+RND 

Ga TOF? 

FoR d=24 TO @ STEP -1 
BEEP 


fos foo fase BB be dt 
1) 
fe 
oo. 


oJ TAT Md 
TUL OL LOLOL LA 


BEEP .1,06 
LET s=s+t 
483@Q@ LET tg="." 
Bee LET ba=INT (RND#20) +1 
2B LET rl=INT (RND#2S) +1 
BEE LET bS=SCREENS (bha.ril 
230Q IF pga" °" OR BR="N" OR CEE= 
.° AND s2¢222)3 GR {ba>& AND bs: 


wit fant fom fos fot fet ft Jac font ot fost oss fot fort fate 119 


3) THEN GO To 128s 

3240 PRINT AT ba rts FLASH 1; IN 
x 5S) PAPER ©: 'G" 

1245 IF s>+=132 THEN LET s2=se+1 
1256 RETURN 


JACK-MAN in progress: 


WRK MARK KK KM RM MM MAREK KAR XR 
Dn 8? SSCS SSEEEEX 
EEKKKKRRE SC -XXXNNRMERKRNKKNOEN 
CESSES ESE 6 SSEEESEEESEEXEN 
a MSMR RMX XR NNN CORN RRM N KEM EMER 
SOOO SOE EE ROKER 
REM EREXRMMME (1 ORMERKKKK | XEX SEX 
MEM EN SESS EEE SEES EEX |. XEX EX 
’ Me NON Ss ERE MERERN KERR MEN EK | MEX EX 
eS SS + SS SOMERS 
Mico + 42 «RM RNMMEMRMMRERMEMMM CS 
Roc TM OMHG-score: @XMMM* CCITT! 
Keres eR SACK MXRXRMMEK OT? 
VEX EX SK SME KEE RER ER RE MK KER EK EX KX 
SEN ENSEN CESS SEE SESE SSEXNEXSEX |X 
VEX EMSA REM RER OC UO RXXXKRXK EK SEX . X 
KEN SER SSE TE 1 SSESE SES EN EX , X 
eX EMR EEA KN MEM (0 UR XKMKXRAXKEX XK 
CEXSECESCEESEE SESE SSSEEER , X 
YM MR KE MMR MMMM OU RMR KKK RRMA KKK 
NSCS CESESSSEE Rags 
SRNR R NRK KKK KAREN AMAR MARE KEK ERR A 


: 
ams 


xe 


* 


LAK 
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a See sesese « ' 
x! XS SSSSSSS ESE’ ’ 
xy »XXXAKAXXAKX * ae * XAXRAKKAKMRER » 


| Sassesececex :® 


MEM soe be 
x, Xx, eee 


NS INEX  XORERESE! SEES EEX XEX, 
By RAM y KEK AKAMA KKK AK KEK KEN 
x MMSMEX LSEXKXK TS 
R222 2 2 SSO KK RRR Pe ae 


Ngoc oMWp score: FERMRT CT 
BOS ST et Sh Oe TimboxXXXXXXX°° C4 
XR. XEXM , KS KKXKXKKAARKAKAKKKRKER, NRX. 
x MEK, XP SSSSss” CSS SSX, KEX LX 
Ni Nex, RARER MEN LX 
XE, 5 +MORE 
So) MEMRAM RNR Ee RK RRR MEX XK 
er eee ary eae * SSSSSSHsFSX . X 
OER eae ene ce 


se 


Variables used in ‘Jack-Man’ 


highest score so far 

name of person who attained the highest score so far 
control variable for various FOR/NEXT loops 
control variable for FOR/NEXT loop 

READs user-defined graphics data 

present score 

number of lines the farmer can jump per gap 
INK colour of the walls 

INK colour of the grapes 

flag for display routine 

y co-ordinate of Jack 

x co-ordinate of Jack 

direction down or up of Jack (can be —1, 0 or +1) 
the line of grapes Jack is in (1 —4) 

the direction left or right of Jack (see du) 

the line of grapes the farmer is in (see |j) 

y co-ordinate of the farmer 


Se a ee ; 


$5 


| 
} 
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g$__ thecharacter which blanks out the farmer 
t x co-ordinate of the farmer 


I$ thecharacter which blanks out Jack 
da _ thedirection up or down of the farmer (see du) 
| dt the direction left or right of the farmer (see dp) 


| q the number of lines jumped by the farmer for this 

| particular gap 

Cc character used to print Jack 

ba y co-ordinate of the ‘super-grape’ 

rl x co-ordinate of the ‘super-grape’ 

m___ flag for whether a grape has been eaten 

i control variable in FOR/NEXT loop 

j READs legal directions in ‘Manual Jack-moving Routine’ 


} READs legal character in ‘Manual Jack-moving Routine’ 


ul) temporary values of the co-ordinates of Jack while 
the ‘Manual Jack-moving Routine’ is checking fora 
legal move 


n alters the variable that stores the line that Jack is in 

fe) direction the farmer needs to move in to be aligned with Jack 
b%- READscharacters printed that shrivel up Jack when ‘eaten’ 

r READs pitch of notes played while Jack is shrivelled up 

s2 numberof grapes eaten so far on this particular sheet 

w__ READs pitch of notes which play the opening tune 

x READs duration of notes which play the opening tune 


iS key pressed that triggers off the 
‘Manual Jack-moving Routine’ 


Variables that READ data are those situated within FOR/NEXT 
loops and are therefore constantly changing values. 


POETRY 
The first two games we've looked at in this chapter have been 
moving graphic games, in which player interaction consists of 


n 
of 
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making decisions regarding which keys to press to change the 
position of objects on the screen. 

‘Player interaction’ during the next game is zero, apart from 
sitting back and admiring the output of the program. The program is 
designed, firstly, to be entered just as it is, to see it in action. Then, 
the most enjoyable part begins, when you add your own words to 
the long vocabulary DATA statements between lines 200 and 320. 

Here are a few verses of poetry produced by the program in its 
listed form: 


THE CHILD PRAYED SOFTLY 
IN ST 


TO SHARE THE NOON... 
WATCHING THEN IN CRYING 
e+ -eWATCHING., BLAMING. 


THE hh IRL SANG SADLY 
THE EVENING. 
dace ING FOR A WISH 
MOVE THE LOVE... 
WATCH ING ate IN LAUGHING 
.. WOND ‘RING, GRASPING. 


THE MARTYR CRIED GUICKLY 
IN THE FORECOURT. 
CRYING FOR A TORCH 
TO STEAL THE LIGHT... 
PRSSING NOW IN FACING 
«. GETTING, STARTING. 


THE MAN PLEADED OUTETLY 
IN THE OCARK. 
Peek se FOR A WISH 


GETTING AS IN GIVING 
-- -SFPERKING. NOTHING. 


THE PROPHET SCREAMED GUIETLY 
IN THE DARK WooDs. 
oreeee FOR_A GATE 
TQ FACE THE HATE... 
UOND RING AS IN GRASPING 
ee » TREMBLING, DREING. 


THE ECHO PRAYED FAINTLY 
IN THE FOREST 
LOQKING FOR @ PATH 
TO MOVE THE SUN... 
SHAKING NOW IN GIVING 
«2 -GETTING, GRASPING. 
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and here is the program listing: 


4@ REM Poetry 
2a DIM ASE fig as): PIM Bria 
ue RANDOMIZE - 6O TO 3B 


8 
FOR G=1 TO RNDz#1i@+1: READ 


6a g 
$: NEXT G: LET ASIN) =BS 

7@ LET BiM) =LEN BS: NEXT M 

6@ RETURN 

9@ POKE 23692,8 

4@@ FOR H=1 TO 18 

118 GO SUB <8 

12@ PRINT ~ “THE “;Asiil: | FO Bid 
335% “;AgtaIt FO BiBi;¢ 2AST33 
( TO BtG32," IN THE “;ASt43t TF 
O Bidgyi7g".” 

43@ PRINT ASI53 ( TO &rSi3, FoR 

A“; As (611 TO Briess,” Ta “;As 
Sia s 3 BiFiys: “THE ";RS* Bir TO 

44@ PRINT AISI TO Bra; ? “AR 
$(103 ( TO Biss; “IN “";ASraayt 
TO Briad} 

id@ PRI ne ee Si eee "7 AS (te CF 
Qo Bile} "TAS (AG) i FO Briard; 

168 PAUSE 2S8e 

A7@ INK _RND#6 

16@ NEXT H 

196 STOP 

See DATA “HAN, "SOY". “WOMAN” » “c 
HILD", "SHSDOW , “ECHO”, “GIRL”, "SF 
ALL TON" : “PROPHET " £ “MARTYR” 

218 DATR “SANG. ‘WAITED. .“SRID" 
,; “SORERNED” « “SRIED", “PLERBDED” « “ee 
RRYED', “STG OD", "FELL STUMBLED” 

222 DATA “Seaply", PGLADLY® Sacred 
LY", 'FPRINTLY”'. “MADLY per LH HELY 
i ea es "SOFTLY." @UTETLY* Sr oure 
KL ae 

BSe DATA "DARK", “DOORHAY® . “GATE 
WRAY". SMORNING", “ EVENING", “FORECR 
URT? > CARCHURY ". “PARK Waobs” , "CAN 
YON, UFOREST" 

24@ DATA “LOORING". "SERRCHING", 
“HOPING, “TOUCHING" . BEANS at i 
STARING", “RSKING", “Ot EADING”,“ ian 
ITING". “SRY ING" 

258 DATA “HAY “PATH ,USTEP™, “s 
TEN", “WISH. " NEED", “TORCH,” pAoR 
eR 3 “BATE ae % “oe aT Ht 

2ee DATR "REACH, “TQUCH', “MQUE™ 


STSTERL "SHARE", “TURNT “THIS 
APACE, "PUSH", “RLANE™ 


¢ 


“A 


Py LS | Rr > Re ee “ea a 


bast 
” 


x 
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278 DATA "NOON? "SEA", "NIGHT" 
POTN re 4 eey Laue ge , "“HATE* ,  SUIN' - zy ee 
z ‘oy i “t TGHT" . "ag yo fe 

28@ DATA “TAKING" , “MATCHING, "Pp 
ASSING". "BLAMING", “SETTING. “SH 
KING". “TREMBLING | CWOND- SING“ _* 

B98 DATA OW GimORT < anhOus .CuHY To 

AY THEN, LES 
To AS", “NOW 

2@@ DATA “NOTHING. “GIVING, “FR 
DING", “BARING” . “STARTING” , “LALIGH 
ING", "CRYING", “BLAMING , “GARING” 

> "GRASPING" 

“3i8 BATA “TRRING” , “MATCHING * , "Pp 
ASSING! , "BLAMING", "GETTING" , “SHA 

KING" , “TREMBLING ) “MOND” RING" | OT 
EACHING" , "SPEAK ING* 

S22 DATA “NOTHING”, "GIVING", "FR 
DING", "DARING", "STRRTING™ , “LAUGH 
ING". “CRYING, “BLANING", “GARING" 

> "GRASPING" 


It is fairly easy to write poetry programs for a computer, if you 
follow a simple procedure. The trick is to write a verse of poetry of 
your own, work out what parts of speech are used in this, and then 
get the computer to randomly choose words of the correct type to 
fill designated spaces within the program. 


This particular program was written by first creating the 
following, not very brilliant, verse: 


THE EAGLE FLEW SWIFTLY 
IN THE CLOUDS, 
SEARCHING FOR A WAY 
TO TOUCHTHE SKY... 
FLYING THEN IN CRYING 

. RUSHING, MOVING 


Next a number of lists of words was built up which would take 
the place of the words in italics. These words are in the DATA 
statements from line 200. 

Once this is done, the actual program construction is very 
simple. Line 20 dimensions two arrays, one to hold the word when 
it is selected, and one to hold the length of that word. Because 
there are thirteen words to be added to each verse, a loop of one to 
13 (line 40) is used. The word RESTORE means the computer goes 
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back to the beginning of a set of DATA items before READing 
them. The Spectrum allows you to selectively RESTORE, that is to 
RESTORE froma specific line. Line 50 RESTOREs the whole of the 
line whose number is given by 190 + 10*M. This ensures that line 
60, which chooses one of the next ten words randomly, always 
starts its count at the beginning of the correct set of words. Line 
70 sets the element of the array B to the length of the word. 

Line 90, where the program proper starts, POKEs 23692 with 
zero. This ensures that the screen automatically scrolls when it is 
full, rather than stopping with the query ‘scroll?’. Line 100 controls 
the loop which counts the number of verses the computer writes. 
In its present form, the Spectrum will write ten verses, but there is 
no reason why you should not change it to as many or as few as you 
wish. 

We've already discussed the subroutine starting from line 40, 
which is called from line 110. This selects the words to be used in 
the verse, loads those words into elements of the array AS, and 
their lengths into the array B. 

Lines 120 to 150 print out the poem. We need the somewhat 
inelegant (TO B(1)) after each element of the string array is listed, to 
ensure that the trailing spaces (which always fill up a string array to 
its full length on the Spectrum) are not printed. Without this 
mechanism, the poems would look very strange indeed on the 
screen. 

There is a pause (of about four seconds) after each verse has 
been printed, the INK colour is changed randomly (line 170) and the 
computer goes back to print its next verse. 

As | said at the beginning of the discussion on this program, the 
enjoyable part of using it comes when you start substituting your 
own words for those in the DATA statements given. Once you've 
done this successfully, you may well want to write an entire poetry 
program from scratch, starting with a completely different ‘model’ 
poem. 


METEORS 

In this game you are a scout ship flying through space when you 
suddenly find yourself in a meteor storm. You have to dodge the 
meteors for as long as possible. Fortunately, there are a number of 
fuel dumps within the storm, and you can refuel your ship simply by 


Ae ee Oe 


Ww Ve 
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running into them (isn’t modern technology wonderful). 

You'll recall that in the POETRY program (line 90) we POKEd 
23692 with zero to stop the Spectrum scrolling 22 lines, and then 
stopping to ask ‘scroll?’. We'll do the same in this program which 
essentially places you near the centre of the screen, and then 
scrolls the universe up around you. The neatest way to get the 
computer to scroll continuously is to print a NEWLINE character at 
the bottom of the screen, which then scrolls up to make room for 
this ‘new line’. The NEWLINE character is 13 (CHRS 13). 

You use the graphics letters shown in the REM statements to 
represent the symbols. Although you will not see the symbols 
come up immediately, once lines 5 — 70 have been run, the graphic 
letters will have been converted to the user-graphics defined in 
that part of the program. Again, you may wish to try running these 
lines first, so that, for example, a meteor will appear every time you 
press graphic B. 

The fuel gauge is stored as a string, decreasing by one pixel’s 
breadth every time a key is pressed and the ship thrusts to the right 
(it automatically drifts to the left if you don't touch a key). Hyper- 
spacing (which moves your ship to a random point across — for 
emergencies only as you may materialize onto a meteor) uses upa 
chunk of fuel. If you get low on fuel you can drift (which does not 
use up fuel), but beware, hanging on the left-hand side of the 
screen means that you lose points rather than gain them. You re- 
fuel by hitting a blue petrol pump (recognized by the fact that it is 
blue). You blow up if you run out of fuel, or hit a meteor. The 
explosion is generated the same way as in NIGHTFALL. The 
meteors get thicker every 500 points. As with NIGHTFALL, the 
bigger the score, the bigger the explosion. You hyper-space by 
pressing the space-key, any other key moves you to the right. 

You might like to improve the game by adding facilities for firing 
(perhaps at enemy ships also caught in the meteor-storm and 
appearing from time-to-time). 


Program listing: METEORS 


LET =e 
LET u=11 
LET p=i16 
LET s=@e 
IF h>@ THEN Go Ta se 


Ais Bow 


Fis MF be 
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3a OATA "a",.255,66,. 66,36,2¢,24 
,24,08,'b" ,68@,126,255,255,255.,255 
126,66 
2 Ba PATA he’ @,868,126,126,125.1 
26,60,@,"%a"°,8,0,24¢,68,68,24,6.8 

AR DATA "mm". 12.6 »S@,74,. 74,122: 
122,122 

BS FOR b= TOS 

BP READ as 

4@ FOR a=e8 TO F? 

Bea REAP ¢c POKE USR 2378.C 

B@ NEXT 2 

Fa NEXT 5 

Fa OATA S55. 127,863,011. i15,7,0;14 

74a FOR a= Ta PF: RERO ¢ 

Fe FOR b=8 TA F: FORE uUSR CHRS 
tatiOBilirb.c 

Fae NEXT b: NEXT a 

S@ BORDER ®@: FPAPER & INK © Cc 
LS 

62 LET 3$='3s 

Sd LET stait 

B6 LET sa=1485 

GQ REM for ¥ use graphics & 
Ha REN @ Qrarhics 6 
Lie REN e graphics C 
{2a REN = Qraphics oF 
425 REM al QraPphics_ NM 
3RA IF SCREENS tu,Pprie THEN 
SQ TA 2ee 

232 PRINT INK 4,AT U.P mAs 

1355 PORE Baeae,25s5 

ASP LET 3=841: PRINT AT @.@:5 
132 PRINT AT @,. 18: “Fuck: ‘> EINK 
tsbl2exe52 ¥-14+5; TAB st;85 

4Yd@ FOR a=3 FO 3s ,5Gm+2-: PRINT I 
HR 2) AT 21 JINT (RND#s#323 :CHRS ii4 
SINT (RNDSs3}:: NEXT 2 

Jai IF RNOD>.aS THEN. PRINT INK S 
IAT 21. INT (¢(RND#31i.; ‘gt 

Ada IF TNKEYa#<o0" THEN LET sa3=8 
S41 IF sa2>=156 THEN ,ET sts=siti 
> LET assagsta TO X LET se=i145 
ta IF st=0l AND sa=iss THEN GO 
Ta 268 

Add LET asti:} =CHRe ss 

Ad? IF 313 ==5 THEN BEEP -@aF.s! 
15@ PRINT AT a aoe =a 

155 IF TNKEY &="_" THEN LET pain 
T tCRNDsde2): TIF LEN agi=i THEN GO 
Ta 2Bee LET Bhoaste TR 3} LET Ss 
L=st+1 

AG@@Q PRINT J BA.8; CHRE 13 

ayrQ@ LET P= =p-ip >@i+(INREY Sis s * 


Seip <3) 
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27°S IF p=@ THEN LET s 25-223 (5 >: 
>: BEEP .@13,35-20 
1se@ Ga Ta 13@ 
2OQ IF ATTRA (u,pi=hS THEN LET 3% 
=" “: LEF st=36 P 
RINT AT U.P; "Ss" FOR 2=-s: Te 3H 

BEEP .@81,38: NEXT 3: GQ TO i382 
2Q2 LET x=p28 LEF yv=fDpi-uizs 
2Q5 INK 3 
Sear FOR c=H=i TO svi 
21a PLOT x.48 
SEQ LET |= INT (RAND #2562: LET = 
INT (RND+#1582 
238 CRAW Se-N. b- 
23S IF RND>.85S THEN BEEP .81,.28 
2d4@Q NEMT c 
2Sea INK 6G 
S60@ BEEP 1,22 
265 IF his THEN LET he=s 
2eF@ PRINT AT 21,8; “score Sa" 
bi-sScere: "Gh 
S8@Q PRINT AT @,8; "press any Key 
290 IF INKEYS="" THEN GO TQ 238 
See GO TO 228 
Sample run: METEORS 
22 fuel: i 
a 
3 
. i! 
am | 
= 
2 
2 
= 
= 
¥ > 2 
$ = 
al * 
= 
= 
= 
= 
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aie fuel: ess 
= 
- = 
- s 
a 
e 
id 2 
gi e * 
a e ¥ 
- a 
= e 
* a 
2 
= 
e 


wa 
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FIELD OF SKULLS 

With a fearsome name like that, you could hardly hope this would 
be a pleasant game. It is simple to play, but almost impossible to 
WwIn. 

You, a little man-like creature (see the end of line 140 in the 
listing), are being pursued by up to ten flashing skulls. They know 
where you are, and spend most of the game heading for you. 
However, the skulls are rather stupid, and can be killed if you can 
lure them into the coloured oblongs which litter the screen. The 
only way you can get them to do this is to get on the opposite side 
of the oblong to the skulls. As they pursue you, they will bump 
blindly into the oblongs (‘they only have eyes for you’) and vanish, 
with a jolly ‘bleep’. 

You move using the “5”, "6", "7" and “8” keys, moving in the 
direction of the arrows above those keys. You cannot move 
through the coloured oblong patches, but contact with them does 
not hurt you. The only thing that can hurt you is a skull. The game 
ends when a skull gets you, or you manage to lure all of them into 
oblong death. 

You will recall the way graphics were defined in other games in 
this chapter. It can be a little wasteful to have a separate loop for 
every character you wish to define, and more than one can be 
defined within a single loop, although the process can become 
most complex. The loop from line 400 to 430 defines both the 
‘man’ and the skulls. The DATA statement (line 440) contains the 
graphics information for both characters, with the information for 
the man and the skulls interwoven. Graphics “A” becomes the 
man, “B” becomes the skulls, so you need to put a graphics “B” at 
the end of line 70, and a graphics “A” at the end of 140 and 279. 


2@ REN FIELD OF SKULL 
23 GO SUB 319: REM UARIABLES 
c@ FOR B=1 TO 28 
4@ IF AIiB.1} =e THEN GO SUB 229 
S@ PRINT AT Cise.2} ,ciBb, 33 

¢ "THEN GO TO 189s 


ve PRINT AT Ais. 2) ,ACB.33: INK 
B-2; FLASH 2; 

S@ LET Ct6,2) =RtB. 2}: LEF Cts, 
S23 =A CH. Si 

98 LET ds ie Li ek A, coal BND NS 
2¢+¢fINKEY#="S" AND NCSL? 
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ante. ar ates 12) 3M THEN LET ft(B,23 
i; 11@ LET M=M+ ae ee AND M¢ci 
so} - CINKEY$="7" AND 

128 a AIB,2) <M THEN ler ACB, 23 


=A(B,23 +1 

i136 i Popeene {M,N ="X“ FHEN L. 
ET M=X: LET 

i148 PRINT ar o¥;" “FAT MLN; UE 


i150 IF ATE,33 ae SHEN IF Ais. Si ¢ 
26 THEN LET AIG, 33 =AIB, 33 INF £é. 
¥#RND? 

36@ LET X=M: LET Y=N 

378 IF At(B,.3)+N THEN IF RIB,Si> 
3 A 2 A (6,3) =R (6,533 -INTF t¢dé 


Bo NEXT 

198 IF SCORE £18 THEN GO TO 38 
280 PRINT AT 2,93; FLASH 1; BRIG 
HT 1; INK 2; PAPER 6,“ YOU HAVE 
BEATEN THE SKULLS?! iii™ 

21@ BEEP .806,60-i20eRND: GO TO 


236 
220 REM CHECK SKULL: ete} 
290_ IF SCREENS (Ate, 5,2) At 3) = 
“xX FHEN LEFT ATB,2 

: oO 1@:- BEEP .91, Bi) Seer 3 Se- 
| SsH: NEXT #: Sr ORE RACORE SS : 

| PRINT AT 2,22; FLASH 1; BRIGHF i 
; INK 4; “SCGOQRE> “; SCORE 

240 IF’A(6,2) <4 AND AIB,3}=N TH 
EN PRINT AT C(B.2),f(B,33;" “%: & 


N 
2608 REM END OF GAME EB 
2728 PR AF ACB,2) ,Fta,SF; FLA 


TIGHT 1; INK 2; 
BEEP .91,RNDs290+49 
298 GO To 286 
sTop 


318 REM ad Reso VARIABLES BB 


| 328 LET GRE = 
238 DIM ALI1@,33 Pais €tie,33 
s4d@ FOR B=1 TO 
S58 LET ftB,1ii= =2 
S66 LET AI6,23) Sci@s+INT iRNDsS) 
S7@ LEF A(B,.33} =1@+INF (RND#19) 
L CtB,3 3 =H fS,2)}: LEF Cte, 


396 NEXT & 

48@ FOR J=@ TO 

#42@ READ A: READ & 

nated Fete USR “A“¢3,A: POKE usr 
ve e ’ 

ase VREXT J 


Es 
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44@ DATA 26,690,286. et 73,98.i27 


LET N=38-INT 
LET 


Gc 


: =N 
Y: BORDER F: CLS 


538 TNUERSE & 
46 RETURN 


Part of two runs of FIELD OF SKULLS: 


you 


R Poca” G72; AT RND#i6+4.R 
xT 


rs 
® 88 & 
Pi ? 
e e 
me 
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BREAKOUT 
The aim of BREAKOUT is to knock out as many bricks at the top of 
the screen, using a bat at the bottom of the screen which you can 
move left and right to bounce a ball. If you miss the ball, the game 
ends. 

The game needs five parts: 


i print up the bricks to be destroyed 

li move the bat when required 

ili bounce the ball when it hits the edge of the screen 
iv score points for knocking out bricks 

vend the game if the bat misses the ball 


Part one is easy and needs no explanation. Part two reads the key 
being pressed from the keyboard, and alters the variables of the bat 
location accordingly. It also checks to make sure the bat is not 
going off the edges of the screen. 

It does all this in one line using the Spectrum's logic which 
dictates that if a statement is true it is given a value of one, and if 
false, zero, therefore: (INKEYS=“5”") is equal to one when the “5” 
key is pressed, zero when it Is not. 

So, where ‘p’ is the x co-ordinate of the bat, we can use the 
following expression: 


LET p=p+((INKEY$="8")* (p< 26)—(INKEY$="5")* 
(p> 0))*2 


When INKEYS equals “5”, (INKEY$=“"8") equals zero so 
nothing is added on to ‘p’ (sincep+ 0 X 1=p+@=p), butwhenp 
is bigger than zero (p is greater than @)=1, then 1 xX 1 x 2 = 2is 
taken away from p. If p is equal to zero, 1 x @ x 2 = 2is taken away 
from p. This is a very useful method of moving things from left to 
right. Just remember that an expression on its own inside a pair of 
brackets for example (a + b = c), is taken as being equal to one if it 
is true, and zero if false, so (6 + 6 = 12) equals one but (9 x 2 = 81) 
equals zero. 

Part three, which bounces the ball off a wall, just reverses the 
sign of the ‘direction’ variable of the ball. If the ball has plus one 
added to it to make it move (to the right) and hits a wall, the variable 


) of 


me 


<ey 
bat 
not 


ich 
d if 
5" 


the 
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is multiplied by minus one, and the ball will have minus one added 
to it (to move it left). Part three also ‘blips’ so that you can hear the 
ball has hit a wall. 

Part four uses the ATTR function to see when the ball 
demolishes a brick. Since all the bricks are yellow, a point is scored 
every time the ball comes across anything yellow. 

Part five uses SCREENS. The bat is made up of capital ‘X's so 
that when the ball comes to tbe bottom of the screen, it checks 
whether it is on an ‘X’, and if not it ends the game. 

When the ball hits the bat, it bounces off at a random angle (but 
never straight up). Some angles are quite easy to hit back, but 
others are wider and are hard to judge. These also give the 
impression that the game is running more quickly. 

There are various changes you could make to the program if you 
wish. You could try changing it so that the ball sometimes bounces 
randomly off the odd brick rather than just ploughing through the 
whole lot. There is no high score factor in the game, and it may be 
good practice for you to add one. There are no user-defined 
graphics. Problems occur if you use a graphic-bat due to SCREENS 
(see NIGHTFALL) but you could get over them by using the 
methods given. A graphic-ball should not present too many 
difficulties. You might like to design your own bricks — they can be 
any shape in this program as long as they are yellow (for ATTR to 
work). They do not even have to be all the same shape — you could 
have randomly shaped bricks. 

Remember, the aim of the game is to knock out all the ‘bricks’ at 
the top of the screen by bouncing the ball off the bat which you can 
move at the bottom of the screen. Keys “5” and “8” move the bat 
left and right respectively. The game ends when the bat misses the 
ball. You score one point for each brick knocked out. 


Program listing: BREAKOUT 
i eat @: PAPER @: INE & 


SOQ FOR a=1 TG 4 


aa LET pala 
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re 

gi 

@ 

mt 

eel 

els 

ee 
WB 


i 
INT (RND#S) +1) 4 CINT 
a 


ET da=- 
4a?@ PRINT AT u,Ps INVERSE 1; "x* 


LF2 PRINT AT 11,0;5 

i773 IF INKEY$="zZ" THEN copy 

a7S PRINT AT a.s.ti”™ “ 

38@Q LET a=atda 

294@ LET t=tidt 

3a5 IF a=@ OR a=21 OR t<=8 OR t 
s=G1 THEN GO TO 248 

Q@? IF ATTR ia.t}=6 THEN LET 3= 


2 

341 

280 PRINT AT a.t; INVERSE 1; IN 
“ot@ PRINT AT Usps" : 

=BO LET p=p+( (INKEY$="6") #(p<26 


CINKEY #="5"3 £(p3@33 #2 

25 LET p=p+(INKEY $="&"3 x (p=26) 
INKEY §="5") # (Pp =25} 

3@ GO TO i7@ 

4@ IF a=21 AND SCREENS (8, tis" 
THEN GO To i162 

250 IF a=21 THEN GO TO 31¢é 

2e8Q IF t<¢=@ THEN LET t=ABS t: Lb 
ET dt=-dt 

278 ae ts=S1 THEN LET tsi: LET 
dt=- 

2S@Q BEEP .1,-18 

290 IF a=@ THEN LET da=1 

saa GO TO 268 

318 PRINT AT_a.ts INK 2: "I" 

82a BEEP 1,15 

S3@ IF INKEYS<>"" THEN Ga TO 33 


34Q IF INKEYS$="" THEN Ga Fo 346 
: RUN 


; 


ft 


““ 
2 


GAMBLIN’ FEVER 
This program, a variation of the Fruit Machine or Slot Machine, 
idea, makes effective use of user-defined graphics (in blocks of 
four) to create a slot machine which positively bristles with 
features. The program listing gives no hint of how effective this 
looks when running on a colour television. 

The concept of the game is simple: You start off with $50 in front 
of a slot machine which has four ‘windows’, behind which reels 
revolve. The reels contain a random, equally distributed, mix of 


cx 
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three symbols — BELL, CHERRY and APPLE. You press ENTER, 
and the reels start spinning, eventually coming to rest with 
symbols showing through the windows. If three of them are the 
same, you win $35. If all four of them are the same, you win $100. 

The game continues until you ‘break the bank’ (make $500 or 
more), or go broke. Each spin costs you $5.00 and this is 
automatically deducted from your money total, which is shown in 
the top right hand corner of the screen. 

From time to time, a HOLD mechanism comes into play. The 
word HOLD starts flashing, and you can then keep any of the 
windows fixed for the next spin. You do this by entering the 
number of the window (they are numbered from left to right), then 
pressing ENTER. You can hold any number (or none) you like, and 
you indicate that you've finished selecting the numbers you wish 
to hold by pressing ENTER, without preceding it with a number. 

There is one more feature. The BELL is the most valuable 
symbol (which is why it is worth HOLDing BELLs when they come 
up). Two BELLs next to each other (except when there are four 
BELLs) are worth a bonus of $15, so if you have three BELLs, 
instead of making the normal $35 for three symbols the same, you 
make $590. If you do not have three in a row, but there are two bells 
next to each other, you'll get the $15 bonus automatically. The 
program does not highlight this bonus, but quietly adds it to your 
total. 

This program is designed to act a framework within which you 
can add whatever features you like. Extra symbols could be one 
idea, different sound, a NUDGE mechanism — the development of 
the program is only limited by your imagination. 

You'll read in the chapter on improving your programs a 
suggestion for working out, in advance and in writing, the major 
sections you'll need ina program, and then starting off by assigning 
the major ideas to separate subroutines. The subroutines can be 
called from a ‘master subroutine call loop’ at the beginning of the 
program. This is what we have done in this case. 

If you look at the beginning of the listing, you'll see there are 
three subroutine calls, followed by a GO TO 40, which takes you 
back to the second and third subroutines repeatedly. The first 
subroutine (from line 720) assigns the starting variables, and 
defines the graphics for the symbols. The second, which is called 
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throughout the program, spins the reels. This subroutine starts at 
line 290, and it calls a further subroutine (from line 210) a number of 
times (eight, in fact) during each round of the game. The final 
subroutine, which is only called if the random number generated (in 
line 50) is greater than 45, brings the HOLD option into play. 

You can see, from the beginning of the listing, how the program 
was written. The first thing | did was work out what | would need 
(initialisation, a spin routine, and a HOLD routine), and then wrote 
the lines to call up subroutines. The program was renumbered at 
the end, but initially | left a lot of room between the subroutines, 
starting the initialisation one at 9000, the SPIN at 8000, the PRINT 
REELS (which is called within SPIN) at 6000 and the HOLD at 
3000. 

You'll see that the program is clearly broken down into sections 
by the strips of asterisks, in REM statements. This makes it 
relatively easy to work out which part of the program is in charge of 
which task, and should make it easy for you to modify if you decide 
to. You can, for example, change the PRINT REELS section 
(210 to 280) without changing anything else at all. 

Working in this way, and applying the other suggestions given in 
the ‘better programming’ chapter, should help you write programs 
which not only work with a minimum of debugging, but are 
sufficiently clear to be readily understood when you return to them 
after a break. 

We'll look at the program section by section now, and outline 
what each is doing. 

We've already discussed the first section (lines 10 to 60) which 
cycle the program through the subroutine calls. We'll look at the 
subroutines in the order in which they are called, rather than the 
order in which they appear in the program, as this makes it easier to 
understand what tasks they are carrying out. 

The first subroutine starts at line 720, and as the REM statement 
points out, this is for ‘variables and graphics’. It is always a good 
idea to assign the variables at the end of the program, not only to 
ensure the program runs as fast as possible, but to give you a lot of 
room to add extra variables if you discover, as the program writing 
is under way, that additional ones are needed. 

The variable MONEY, fairly obviously, holds the money you 
have, and starts off with a value of 50. Line 760 dimensions four 
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arrays, the first two (the string arrays) to hold the user-defined 
graphics and their colours (I'll explain this shortly), the second two 
to hold the numbers created for each ‘spin of the reels’ (A), and to 
hold your wishes regarding HOLD (Q). 

The routines from 770 to 1030 define the graphics, calling on the 
DATA statements from line 1150 onwards. Lines 840 and 850 add 
together the four quarters of the apple, along with the control 
character (CHR& 16) for INK and the character for red (CHRS 2). 
This ensures that the statement PRINT AS(1) for example will print 
the top half of the apple, in red, without the need for PRINT INK 
2;"AB” which would otherwise be required. It also makes it easy 
to call the relevant symbol up when needed in response to the 
random numbers generated in line 440. Lines 930 and 940 add the 
parts of the bell, and the colour yellow, together; and 1020 and 
1030 do the same for the cherry (actually, there are three of them) 
and magenta. 

The letters to enter, where you see the symbols in the printout, 
are (and these, of course, are graphics) A and B (line 840); C and D 
(line 850); E and F (line 930); G and H (line 940): J and K (line 
1020); and L and M (line 1030). 

The lines from 1040 to 1130 print out the basic fruit machine. The 
reels will be overprinted on this as the game proceeds. (The initial 
form of the machine, and the shape of the symbols, along with a 
decision on where various words would appear as the game 
progressed, were worked out on a commercial product called 
Print'n’Plotter Jotter which has ruled forms with number 
references which relate to the PRINT AT locations on a ZX 
computer. | have found this product of great use in my 
programming work, and it— ora similar one — may well be of help to 
you.) 

From the RETURN of that subroutine, we go to the SPIN REELS 
subroutine starting at line 300. Firstly, $5.00 is subtracted from 
your money (line 320) to pay for the spin. Next, the variable PRIZE 
(which will hold your win, if any) is set to zero. Line 350 asks you to 
press ENTER to ‘pull the handle’ on the fruit machine, and line 360 
waits until the keyboard is clear, then moves to 370 to wait for your 
keypress. Line 380 wipes out the ‘Press ENTER . . . ’ instructions. 
Your money total (now that it is minus five dollars) is printed by line 
390, and the routine from 400 to 470 spins the reels eight times, 
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calling up the PRINT REELS subroutine (from line 210) each time it 
goes through the Z loop. 

The B loop, inside the Z loop, generates four numbers at random 
between one and four, and assigns them to elements one to four of 
the A array. If you have indicated you wish to hold (which is shown 
by the value held by that element of the QO array), the program 
jumps over the random number routine, and goes straight to NEXT 
B. Line 430 simply creates a pleasant ‘fruit machine’ noise during 
the spin. This is after the ‘hold option’ check (the element of the 
array Q) so that there is a different sound if one or more of the reels 
are held. This will be quite clear when you run the program. 

Line 480 sets all elements of the O array to zero which, in effect, 
resets the HOLD mechanism to ‘no holds’. Lines 490 to 510 check 
for the various winning combinations, 490 for a ‘jackpot’ (four of 
the same symbol); 500 for a ‘three of a kind’, and 510 for two or 
more bells in a row. 

Lines 520 to 540 produce some sounds while you wait for the 
result of the spin, and your winnings — if any — are added to your 
MONEY inline 550. Line 570 prints the name of the win (Q$) on the 
screen, and line 590 prints out the amount of the win (PRIZE) on the 
body of the fruit machine. If you have scored a bonus (two or three 
bells in a row), this is indicated by lines 610 and 620. Line 630 
produces an interesting arpeggio to end the round, line 630 
changes the MONEY total and lines 650 to 670 wipe out the win 
and prize messages. Lines 680 and 690 check to see if you've 
failed (by going broke) or if you've achieved the object of the game, 
to break the bank (by getting more than $500.00). Either of these 
conditions will end the game. 

The PRINT REELS subroutine (from line 210) is fairly 
straightforward, making use of the elements assigned to the array 
AS% as was described earlier when | was talking about the user- 
defined graphics. 

The HOLD subroutine, the last we shall consider in the 
discussion of this program, plays seven clear notes (line 100) then 
prints up the word HOLD! Here we can see some fairly routine, but 
useful to note, error-trapping routines. Firstly, the computer 
expects a string, rather than a numeric input, even though it 
eventually wants numeric information. This means that a simple 
touch of ENTER will get the program on its way, whereas the 
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computer cannot accept a ‘no-number’ numeric entry. Line 130 
checks to see if the input is, in fact, the null string, and if so sends 
action to the ‘unprint’ (which you'll understand in a moment) 
routine, and then to RETURN to get out of the subroutine. 

Line 140 takes the first element of the string — QS(1) — and 
converts it using VAL into the number equivalent. By taking the first 
element, we override the possibility that the user may enter more 
than one number at once. Line 150 assigns this number to the 
same element number of the array Q (that is, puts Q(1) equal to 
one, or Q(4) equal to four, as the case may be). Line 170 prints, ina 
position related to the number entered, HELD and the number, 
then returns to line 120 for the next input. When the player enters a 
null string, by pressing ENTER without a preceding number, the 
computer goes to line 190 which deletes the HELD messages, and 
then RETURNs to the master loop, when line 60 sends the action 
back to line 30 to begin the loop again. 

| suggest you enter this program as it is, fora start, and then work 
on the various sections. You may wish to add additional symbols 
and alternative win routines, or — as | suggested at the beginning — 
a NUDGE facility. Once you understand how this ‘fruit machine’ 
works, you might like to try and write one which uses four symbols, 
and only three reels, or one which shows the symbols above and 
below the winning ones (so nine show in a three window version) 
with some combinations on the diagonals as winners. 


418 REN GRNELIN-: FEVER 

28 REM FHF EX EEE ETEHE 

3@ GO SUB Yee: REM UARIABRLES 
4@ GO SUB 290: REN SPIN REELS 
IF RBND:>.45 THEN Go SUR Fae- 
HOLE 

Ga To 48 
HSPFFSHSTRSHPAFHFHABH 
REN HOLD 


3 
Lae FOR Tei TO 7: BEEP .1,5@-Ts 
YF: NEXT 
44a PRINT AY 3,22; FLASH 2; INK 


7 


Ph 
ri 
ACG A 


WS ts o 
bales 
fives 
ae 


NE 3 
13@ IF @g$="" THEN G2 Ta ige 
14@ LET ®=VUAL O14} 
15@ LET &@'a)} =8 
17@ PRINT AT 370,22; INK RNDs4; 
FLASH i: "“Hetd> “;a;* " 
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18@ GO Ta 128 
25@ PRINT AY 3-2 
;2BB>" BOR 
. 2AT 18,228;” 


2848 RETURN 

2182 REM £22 FFF F FFF FFF FFIFAFF 
220@ REM PRINT REELS 

23a REM FX EFPFE FEST FFT FFF*#FT 
qzse eee AF G,3;AS(ATLPISAT -F., 


;BSsC Ai 

7285 PRINT AT G,G;,;AS(ACBIIF AF -, 
6; BSiAt2)} 

bee PRINT AY GB,3; AS(ATSIISAT 7, 
S,;BRiAnts3 

27a PRINT Aus 6, ,12;AStA(4)3;AT ? 
21a, BstRia 

380° RETURN 

23@ REN Se FFF FF FRFTFFRAFPIHF 

3@a REN SPIN REELS 

SiS@ REM FHSS FTAEHTTFFFPFFFIS 

S320 LET NONEY =<MONEY — 

S30 LET PRIFE=a 

S4@ LET @$="": LET Ps="" 

358 PRINT AY 4,139; FLASH 1; PAP 
ER i; INK 7;" Press ENTER “;ATF 5S 
tt oe _tea pull the “j;AT &,223;" ha 


560 IF INKEY$<23"" FHEN GQ TO 36 


~~ ar 
re 
Tr’ 31,22; 


2 

372 IF XINKEYS="" THEN GO FO 372 
SS6@ FRINT AF 4,139; 

"“JAT 5,313; " “ZAT 6G, 
Fade My at as 


39@ PRINT AT 2,26; FLASH 41; INV 
ERSE 2; INK RND #4; MONEY; FLASH @ 
i INVERSE @; * 

4a@ FOR Z=1 To 3 

41@ FOR &=1 To 4 

424 IF @(583: =B8 THEN GO TO 458 

43@ BEEP .8@88, 2368 

4408 pe pare See TRAND #3141 


4328 TF ATA: A iD) AND Ate) =A) 
AND Ata} sA (42? THEN LET @$=" JACK 
eens “: LET PRIZE=i8e@: GQ Ta S52 


tol 


Nd 
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=" 3 OF A KIND!!! “: LEY PRIZE= 


S128 IF AtlI=ss AND Afaise OR Ris 
}=2 AND A(B3 =e GR AB =2 AND Aid 
}s2@ THEN LEY Ps=" BONUS! ! *: LET 
PRIZE=PRIZE+i15 

S2e FOR G=1 TO 3@ 

530 BEEP .8@@8,5@-G: BEEP .2@06,5 


S408 NEXT G 
SSOQ@ LET NONEY =HONEY +PRIZE 
S6@ IF @g="" THEN GO FO &ae 


PRI 
H 2; INVERSE i; INK 2; PAPER 4;8 


s 
sae La PRIZE>@ THEN PRINT AT i 
bpi GRIGHT 1; INK 2;"“You win 8°; 


IZE 
G@@ IF Pee"" THEN GO FQ B28 
61i@ PRINT AT 18,20; FLASH 4; IN 
ER 3:PS 


62@ PRINT AF 31,28; INVERSE i; 
638 FOR T=i TO iea: BEEP .aes,T 


NEXT T 
64@ PRINT AF 3,28; FLASH 4A: INU 
aoe a; INK RND #4; HONEY; INVERSE 


esa eRe E: AY 19,6;° 


> at 


660° PRINT AT 18,2; INK &@; "ER 


@ PRINT AF if. 22; "5 
AT fi) 2a; 
65ea TF HO ONEY <1 THEN, “PRINT AT @, 
@, FLASH i: “Thats the end; my F 
ciend"™,"“VYou_ are Erake Srur 


728 REM FEE EF EL ETE FETE EETE 
7208 REN UAR TABLES -CRAPHICS 
748 REM +2 F FFF FFTTFIFFFTH 


NEY =5e8 
768 DIN He fg pA PIN B$itG.43: G 


778 F Z=8 TO ? 
Se READ A: READ B: READ C: REA 


Q 

732 POKE USR "A’‘4Z,A 
S82 POKE USR “B'+2,;5 
&1@ FORE VSR “t"+2;C 
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G28 FORE USR 
GS2 NEXT 
mig .@ wfET Agta) 


858 LET Bs#ii; 


bid & ld +7,0 
SCHR IR+CHRS 24+", 
=SGHRS 16+CHRS 2+"4 


B62 For Z=2 TO 7 


67@ READ E: READ F: 
DoH 


88@ FORE usr 
69@ PCKE uSh 


oie LET Agia) 
a8 3? te 

348 LET BS fe) 
as re tre 


REAP G&G: RER 
“E"a2,£ 
ie eek #27 F 
“B47, & 
"HY a2 LH 
SCHR L64CHAS G4"; 
SCHRS 16+7CHRS 63° 4 


35@ FOR zZ=a@ Ta 


a ae REAP dU: 


"ate POKE UsR 
SS@ POKE USSR 


XT 
1828 CET Agta) 


1608, LET Bs (33 
i248 PAPER ?: 
i8@Se PRINT AY 


2@882 PRINT TRE 


? 
READ K: REAP L: REN 


"EP az al 
“HAF LK 

id Od ae 

At > hie ee 

=CHRS 167+CHRS 3+"@° 


SCHR 26eCHRSs 3° @ | 


CLs : BORDER ? 


31,3; INK @:; 
2; INK 22° ee 8 


FLASH 1;" 


f ; KR a: 
BM’; TRB 24; ° INK 2; FLASH 1° eRe 


Y¥ 

1@7@ PRINT TAB 2; INK &@; "HE; IN 

VERSE 2; INK 4; PAPER 2; FLASH 1 

i F TNVERSE @; FLASH @ 
. 2° 


4aS8 PRINT “TAB B; ; aE 
zm 


1188 NEXT 2 


2322@ PRINT TAS 2; '"3E'; PAPER Ry 
INVERSE 3; FLASH 3 

“5 FLASH @; INVERSE @; PAPE 
R 7; INK &;° 


1i3@ PRINT TAS ¢; Ee 
mm 
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23148 RETURN 

1158 REM APPLE 

L168 DATA @,3,121,254,8,58,83,25 
4,8,48,53,254,15,.928,31,254 

22°78 DATA 31,248,15,2a52,51,252,7 
:246,52,254,1,224,161,254,8,8 
3120 REN BELL 

1398 DATA @8,128,.7,348,8,128,15,2 
4G,1,132,15,248,3,824,31,252 
A268 DATA 3,224,8,128,3,224¢,1,13 
2,3,224.,1,1392,3,824,.8,8 

321@ REN CHERRY 

R228 DATA 8,8,.1;,1535,8,2,25,5,56, 
12,6@,16,424,52,126,2838 

21238 DATA 1f?7,.204,61,2e¢,124,28, 
25,240,124 ,350,1,224,56,72,.6,224 
2248 TTOP 


And here are some sample printouts, but without colour and 
flashing lights they fail completely to do justice to the effect of 
running the program on your Spectrum: 


Moneu sii 
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Honeu Sh 


MoOreu di 
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SCREENS RACE 

I've called this program SCREENS RACE because the SCREENS 
function on the Spectrum is the key to the program. The idea of the 
program is simple. On the screen is a ‘racetrack’, which looks like 


this: 


XRRR MM RAAARKER KK AKK RR KKAKRAXKXAK KK 

x xX XMMXXX 
x xx XX XXXX 
x ne XXX xX 
xX “x XXX XX 
x x x 
xx xx XXX x 
roe XXXRRM xX XXXX x 
xXx XXXX XXXXX x 
XXX XXXXX xX XXXXXX xX 
XKXX xXXXMX XMXMXXX xx 
XXKXXX XXX xXX XX 
KEXXXX XXXXK XXXXXMX x 
XXMKKX XXXXX  XXMXXX x 
KXXXXMX XXXMXRXXXXXXXXX x 
XXXXXXXX XXXXXKXXRXX XXX 
XXXXXXXXXXK XXXKRXXXXX XX 
XXXXXXXXXK XXXMMXX xXXXX 
XXXX xxXXxX 
XXX xX XXXXX 


AR XX XXXX 
KXMMMMKRKRKKKRKKNAXKARKKKXMRAMMRRAAMMKM 


You Start up in the top left hand corner of the screen, as a flashing 
figure nine. You have to drive this flashing number around the 
screen in a clockwise direction, using the “R” (up), “F” (left), “J” 
(right) and “N” (down) keys. You'll find that you'll soon get used to 
using them for these directions, and they've been chosen because 
your fingers seem to rest naturally on them (which is more than can 
be said for the "5", “6", “7" and “8” keys generally used to control 
on-screen movement). 

You have to try and get right around the screen, without bumping 
into any of the walls. When you get back into the top left hand 
corner, the nine will change to an eight, and continue being 
reduced by one every time you complete a circuit. Your aim is to 
get around the screen, safely, nine times. You are given a rating 
when you crash which is related to how long you kept your ‘car’ is 
going, and to your score. The score is changed in proportion to how 
long you have survived that particular round. The score is being 
decremented all the time you are driving, so itis in your interests to 
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keep the car moving, and not play it too safely. Before you run the 
program, make sure the CAPS LOCK is on, so that the INKEYS 
reading of the keyboard can be interpreted correctly. 


238 REN SCREENS RACE 
26 REM EB CAPS LOCK ON! =e 


@ 

FOR 2=9 TO STEP - 
PRINT AT CARD, CARR: * SRIGHT 
i; SPLASH a2;2 

6&@ LET SCORE=SCORE-i 

78 LET AI=CARA: LET Di=CARD 

6@ IF INKEYS="F" AND CRRA: TH 
EN LET CHRASCARA—1 = 

Q2@ IF XINKEYS$="U" AND CARA<C30 7 


+2 
1@6@ IF INKEYS="R" AND CARD>1 TH 


2160 IF INKEYS$="N" AND CARD<«28 T 
HEN LET CARD=CARD+41 

428 PRINT AT D1.AI; “ 

238 IF SCREENS {CAAD, CARR) ="x" 
THEN GO Ta 178 

ié€@ IF CARAC¢d AND CARD «4 THEN 
ET CARA=4: LET CARD=1: PRINT AT 
O32,A1;" : BEEP .4,RNDs#58: NENT 


25@ IF 2=8 THEN GO Ta 2708 

168 GO Ta sea 

27@ REM 2#*£#CRASHs+43*4% 

2808 FOR R=1 TO 5@: SORDER RNDs7 

198 PRINT AT CARD,CARA-1; BRIGH 
T A; "“X#X";AT CARL, CARR - -i; INVERS 
= aie axa? INUERSE S 

28@ NEXT R: BORRER 2 

21@ PRINT AT 3,5; FLASH 31; "Your 

FSatz~ng is "; INVERSE 2; INT (5cC0 
RE#3-L273273 

228 FOR R=1 TG SS: BEEP .O06,R- 
S@: BEEP .@807,5@-/R: NEXT R 

248 CLS 

2506 GO SUB 4682 

26@ GO TO 4e@ 

276 REN ## FSUCCESS#2XE 


HT 7 “Y¥Ou'¥e dene it champir™ 
Baa’ PRINT INVERSE i; FLASH a; & 
Rise i; °“‘TAB_S;* Stand by “™ 

FOR G=1 TO 380: NEXT G 
338 CLS 


S20 LET SCORE=180e08a 
338 GO SUB 496 

346 GO Te 48 

358 STOP 


OF i) 
996 


| the 
EYS 
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368 REM ##INITIALISEts: 
370 PAPER we INK 7: CLS 
398 LET SCORE=S5000 


40@ PRINT “STARTING SCORE I5 “: 
FLASH 1;SCORE: PAUSE 3SGe 


42@ FOR yY=1 TO @ STEP -1 

43@ INVERSE 

44@ PRINT AT @,@; “XXXXXXXXXXXXX 
SOOOCOOOL IO IOX 

45@ PRINT “xX xx 
26@ PRINT “x xX xX 
478 PRINT "xX aX *XX 
48e PRINT "XX xX XXX 
498 PRINT "“X x 

S@@ PRINT “xx xxX 

5SiQ PRINT “XXX MENMEM XX 


S3Q@ PRINT “xxx MRMMM x 
MMRAAM ax 

S€Q PRINT ”™ ARAM SN 
MEMRAM xx 

S58 PRINT “XXXMXX XXKXX 
56S PRINT ore MXRKK 
578 PRINT a als KXXRMRM 
SS@ PRINT “XXXXXXX XRRAXKXXX 
590 PRINT, OOKHKHAK XXXXXX 
“Sea CPe ee e XXMKRRXX 
618 en pee XKRN 


XXX 
83a Bis rl LAO 9 as KX 
646 PRINT “XXXX XRRX 


658 PRINT “XXXXAXNXRXXXXXKXXAAXAKRN 
NARA AKXKXXRARMR™ 

B6G@ NEXT Y¥ 

678 LET CARAR=2 

6&8@ LET CARG=1 
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7i@ REM F IS LEFT 
720 REN J IS RIGHT 
736 REM N IS DOUN 
748 STOP 


Action goes to the subroutine starting at 369 when you first run 
the program. This subroutine, at the end of the program like many 
of the programs in this book, initialises the variables you'll need. 
The PAPER colour is set to black, the INK to white, and the 
BORDER to red. The starting score is set to 5000. Line 400 prints 
the starting score on the screen, and holds it for a few seconds. 

The Y loop (lines 420 to 660) prints out the racetrack twice, which 
gives a most effective start to a round, as you'll see when you run 
the program. The position of the car across the screen is given by 
the variable CARA and the position of it down is CARD. 

On return from the subroutine to the main program, a loop (Z) is 
started which counts down from nine to one. The car is printed (line 
50) and the score is decremented by one (60). Line 70 sets two 
new variables (A1 and D1) to the car location, so that the car can be 
‘unprinted’ once it has been moved. Lines 80 to 110 read the 
keyboard, with line 120 ‘unprinting’ the car from its old position. 
Line 140 checks to see if the car is back within the innermost 
Squares of the top left hand corner of the track, and if it is, sends 
action back to the next run through the Z loop. Line 150 checks to 
see if the Z loop is over (which means you've won), and if it finds 
that it is over, sends action to the SUCCESS routine, starting at line 
270. If Z does not equal zero (i.e, the final circuit has not been 
made), line 160 sends action back — still within the same run of the 
Z loop — to line 50, where the car is printed in its new position, and — 
the circuit begins again. 

We left line 130 out of this discussion, because | wanted to talk 
about it at a little more length than | have some of the others, and 
because one of the effects of line 130 is to send action to the 
routine which follows the point we've just been discussing, the 
CRASH routine starting at 170. Have a look at line 130. It uses the 
SCREEN$ function to do one of its two tasks on the Spectrum (the 
other is to save or load back a full screen picture from the television 
to tape) which is to examine the contents of a specific location. In 
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some of the previous games (such as FIELD OF SKULLS and 
JACK-MAN), the function has been used for the same purpose. 

The two numbers which follow the word SCREENS in brackets 
are the same as the PRINT AT locations of the place on the screen 
we wish to examine. Line 130 looks at the position CARD, CARA 
which is where the flashing number ‘car’ will next be printed. If it 
finds an X there, it knows the car is about to crash, and so directs 
the program to the CRASH routine starting at line 1790. If it does not 
find an X there, the program continues on through the loop. If you 
decide to make your track out of characters other than X's (and 
remember, SCREENS will not read graphics characters), make 
sure you change the X in line 130 to whatever character you make 
the walls out of. 

The CRASH routine is interesting, producing some pyrotechnical 
effects which you can probably employ in other programs. The R 
loop (lines 180 to 200), prints a design ("X*X, alternating with 
“*X*") just where the car has crashed, while changing the 
BORDER randomly. This random BORDER change is quite 
alarming and may even, as it does with my television set, cause the 
central picture area to bulge slightly, and produce some weird 
crackling noises from the set. Once we've endured the R loop, the 
BORDER is reset to red (the second statement in line 200), and 
then the score is printed up on the screen, as a ‘rating’ (three times 
the score, minus 127 times the Z you were at when you crashed). 
Line 220 produces a loop of sound, somewhat like those discussed 
within the sound chapter of this book. Line 250 sends action to a 
line just after the one where the score is set at the very start of the 
game, so that your new score is not increased. 

The SUCCESS routine, from line 279, is only called if you manage 
to get all nine digits around the screen safely, a really formidable 
achievement. It can be done, but only after a great deal of practice. 
“You've done it champ!!” you're told, and your score is changed to 
10000. From there the program follows the same route as it does 
at the end of the CRASH routine. 

There are many things you can do to change this program. You 
may prefer to define a little graphics car and only aim to get it 
around the track once. You may wish to add a little sound. 

Do not feel constrained to stick with my race track. Try mine out 
first, and then change or complicate it in any way you like. You may 
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even like to write a routine to generate a new track every round, at 
random, or switch between two or more of them. You'll find, that it 
is quite easy to cheat in this program, by simply driving your car 
backwards into the area in the top left hand corner, and holding it 
there while the Z loop is decremented. You may wish to write a 
routine to stop cheats from doing this. 


SPAWN 

SPAWN is a variant of the famous John Conway game of LIFE, In 
this version, a number of little green frogs dance around the 
screen, Creating the patterns for which LIFE is famous. The game 
of LIFE was invented by Mr Conway, of Cambridge University, in 
October 1970. It simulates the birth, death and growth of cells ina 
closed colony. This, however, is no Malthusian nightmare, in which 
the cells breed ceaselessly until they run out of food or room. Inthe 
world of LIFE, and of its offspring, SPAWN, birth, death and 
survival follow most civilised rules. 


The cells live ona grid, and follow these rules drawn up by Conway: 
@ There are eight neighbours for each cell on the grid 


© Survival to the next generation occurs when a cell has two, or 
three, neighbours — no more, and no less 


@ If there are three surrounding cells, and the place on the grid 
being checked is empty, then a new cell will be born in that spot 
on the grid in the next generation 


@ Any cell with four or more neighbours dies in the following 
generation 


There are a number of ways to write this program, and | suggest 
you might like to try and write it yourself, before seeing how | have 
done it with the spawning frogs. There is, however, one additional 
piece of information you need to construct the game properly: the - 
rules must be applied all over the grid at the same time, so that 
changes for the coming generation do not effect cells which have 
not yet been checked in the present generation. Set upa1@by 10 
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grid, and try to work out a program to place cells on it and check 
those cells in accordance with Conway’s rules — which you'll have 
to do by working out a routine to ‘circumnavigate’ the grid position 
being checked. 

Here is my listing, which you may want to use as a Starting point 
for your own program, or may simply want to run to see what 
SPAWN looks like in practice, so you'll know what you're aiming at. 


hae SFRFFFLEEFFTFIE 
SPAUN 


ES REM Sg Agta FEEE 


SUS 2606 
BEEP -- 888, RND#2G: BORDER RN 
PRINT AT 2,6; INK 2: FLASH 


5a 
2; BRIGHT 1;" Spawning “;Z3" "5 


AY 5. 
78 FOR M=2 TO = PRINT “TRE 6, 


&; 


FOR N=2 TO ¢ 
LET X(N,N3 =¥ (9 
PRINT INK acne [XtM,NIIG* 


FOR W=21 TO 8 
LET aes eS AS iW} =14a83 


NEXT il 

TF X(MN,N) =144 AND _ @<>2 AND 
THEN Ler YtN,N) =32 

IF XtN,N} =32 AND O=3 THEN i 


Bia 
ET YtéM,N) =146 
22a NE 


Y 2O FO 


ea 
REM =## INITIALISATION #¢ 
RESTORE 
OoIM Ay {@,1@): DIN X(16,108): 


READ as 

rer. ms (Gi =O 

NEXT 

DATA x (M-2.N-41) ", “NX IM-1T Ne 


“7X IM-2, Nii“, “UM, N— 43 “UR INL 


2x tH+4, a4: "x I[MEL_.NI“ LUNE 


M41,N434) ia 


348 
3S8 


REM INITIAL CULTURE 
FOR FP=1 TO 18 
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S6@ FOR @=1 To 1a 
aoe LET X(P,@3}=32: Ler YtP,O@3=35 


3589 NEXT G& 

330 NEXT P 

$8@ FOR O8=1 To 15 

#28 READ A 

422 READ B 

#58 LET X1{A,B) =144- LET Yi, B= 


458 DATA 3-4.3,5.3,6,4,3,4,5,4, 
27$-4-5.5.5.6,6.3.6°5°6.7 25143" 
7 z 
#58 FOR @=8 To 7 
472 READ Pp 
458 POQKE USR “AVEO, P 
#38 NEXT @ 
S88 DATA 66,153, 30@.68,24.,126.66 


Si@ LET z= 
S22 RETUR 
I'll go through it to explain what each of the sections of the 

program is doing. We go first to the subroutine from line 260, 
where initialisation occurs. Line 280 dimensions three arrays: A$ 
(to hold the mathematical relationships which exist between a grid 
position, and the positions which need to be checked around it): X 
(to hold the ‘current generation’); and Y (to hold the ‘following 
generation’ which is formed while the current generation is on the 
screen). 


both grids. The number they are assigning to the array elements is 

144, the character code of the first user-defined graphic (graphic A). 
The final Q loop, from 460 to 490, defines the shape of the frog 

that will be printed as CHR$ 144 in due‘course. Z, the number of 
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(the Y array) into the ‘current generation’ (X array). It is the X array 
which is printed. 

The next loop, from 140 to 230 is the most important one for the 
working of the program. Q, set to zero in line 160, is the variable 
assigned to count the cells surrounding the one under 
consideration. The W loop, lines 170 to 190, is the magic one which 
checks the eight cells surrounding any cell under consideration. 
Notice that M and N, the two master controls of the checking loop, 
only move from 2 to 9, so that cells on the extreme outside (which 
do not have eight neighbours) are not checked. Line 180 
increments the value of Q by one each time the expression VAL 
A$(W)=144 is found to be true. The Spectrum assigns a value of 
one to a true statement, so this line is a slightly shortened way of 
saying: IF VAL AS(W) = 144 THEN LET OQ =Q + 1. 

Once the neighbours have been checked, the program acts on 
the count. If the cell under consideration contains a frog (i.e. 
contains the value 144) and there are not two or three neighbours 


26.66 


ns of the 


line 260, (i.e. Q is not equal to two and is not equal to three) then the 
rrays: AS corresponding cell for the next generation (held, you'll recall in the 
2eN a grid Y array) is set to 32. If, however, the cell being checked is empty 
und it); X (contains the value 32) and there are three neighbours (Q equals 
following three) then the next generation element is set to 144, anda birth 
Is on the Occurs. 

Once this process has been repeated for the whole grid (except 
line 330, for the cells on the outside of the grid), the spawning count is 
sive ele- incremented by one (line 240) and the program returns to line 50 to 
aces (32 print out the new generation, and start the process again. 
fills the You can add your own starting colonies to this program by 
40 read changing the DATA statement, line 450, where the numbers are in 
5Q, into pairs, relating to the A and B within the X and Y elements in line 
nents is 430. One pattern which you might like to try, once you've run the 
dhic A). one contained in the original program, is: 
ine Tog 45@_DATA 3,3,23,5,3,6.3,8,6.3-68, 
Nber of 8,39,5,9,6.¢,-¢,4¢,7,5-¢,58 2-7-58-5.65, 

622-75 -2-6-6,5,5.4.8,7,8,8,9,3,98. 
| BEEP, ewe fe Set 
nted at Note that there are 24 elements in the original spawning, so 
Dut the you'll have to change the 15 at the end of line 400 into a 24. This 


mation pattern lasts for 16 generations before dying out. Once you've 
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seen it go through the very attractive patterns it forms in this 16 
generations, add a single cell to the original colony, or delete one, 
and see how this single change effects every generation from then 
on. 

You may wish to write a routine to set up the initial colony at 
random, or one which allows you to enter the starting colony at the 
beginning of each run, in response to computer prompts. When 
you're working out the initial colonies, set up a 10 by 10 grid, and 
number the squares one to ten along the top and from one to ten 
down the side, and then read off their numbers. Do not place any 
starting cells in the outermost ‘frame’ of the grid. 

Finally, here are a few patterns of dancing frogs, from SPAWN: 
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Spawning 3 


ze 8 
z 2 
= =z = 
Be ee 8 
4 z = 
Zs 
ZS 


SPawning 4 


= = 
= = 
z = 
= = 
= = 
& = 
= = 
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WORKIN’ FOR THE MAN - a simulation 

In WORKIN’ FOR THE MAN, you are The Man, the boss of a factory 
producing Zibbies. You have almost total control of your staff, their 
output and your selling price. Your task is to stay in business for as 
long as possible, and perhaps to make a million. 

This program is a simulation, a program in which the computer 
takes the role of ‘reality’, manipulating information, to some 
extent, as it would be manipulated in ‘real life’. 

The two key words in creating a simulation are ‘replication’ and 
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‘simplification’. We attempt to replicate life, but because there is 
no way of including every conceivable factor, we simplify to some 
extent, to end up with a manageable set of variables to work with. 

In this program, which explains itself as it runs, you are, as we've 
said, in-charge-of a Zibbie factory. At the start of the run, you are 
told how many people you have on your staff, how much they are 
paid each week, how much capital you have on hand, how much 
stock in your store room, and the selling price of Zibbies. The 
program tells you your total wage bill, and this is the one figure you 
must always keep in mind. The program works in weeks, and you 
must manage to meet your wage and raw material commitments 
each week, or you will go bankrupt. 

The first choice you are offered ina round is that of hiring or firing 
staff. While your employees’ union is quite happy for you to hire 
staff, there is some resistance to firing, so despite your best 
intentions, you are only allowed to get rid of the number of staff 
they suggest. You may enter “7” when you are asked how many 
you wish to fire, and the computer may well reply “Unions allo 
you to fire 2” which means, as in real life, you do not have total, 
immediate control over the size of your staff. And as each staf 
member can only make a certain number of Zibbies each week 
you cannot keep your factory alive just by cutting the staff to one. 

From time to time, the workers will demand a pay rise, and yo 
have no choice but to pay it. Your suppliers, as well, are well know: 
for making intemperate price increases in raw materials, So you are 
waging a perpetual war against rising prices and wages. 

You have three factors you can control, within limits: 


1] The number of people on your staff (you cannot fire wit 
impunity; each staff member, of course, costs money each wee 
to keep; and the maximum output per person is limited). 


2] The number of Zibbies you will make each week (you set th 
production target, which is rarely, if ever, completely met). 


3] The selling price can be changed at your whim (but eac 
change makes it harder to sell your stock in hand; you do not s 
every Zibbie in hand every week, and the number you do sell I 
related, in part, to you keeping your prices unchanged). 
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As you pay your bills, you have to increase your prices from time 
to time (because the wages bill is increasing, and so is the one from 
your raw materials supplier) but the knowledge that each change in 
the price decreases the selling power of your product, should 
moderate your price changes. 

This description may sound a little bewildering, but don't worry. 
You don't have to remember all this, as the program does most of 
the work, and explains it to you as the game unfolds. 

WORKIN’ FOR THE MAN can end in one of two ways. The most 
usual is bankruptcy, when you'll be told how many weeks you 
managed to keep the factory going. The second way the program 
can end is if you manage to build up a million dollars (capital, plus 
stock in hand). As you'll discover when you play this game, the 
cards are stacked against you. It is a saying in business life that the 
first job a business must do is ensure its own survival. You'll 
discover how true this is when you try to run your Zibbie factory. 
And despite the great simplication which has occurred to make this 
a manageable simulation, it replicates reality in quite an uncanny 
way. You'll find yourself actually despairing when some sales or 
production figures come in, and will agonize over your hiring/firing 
and price-setting decisions. 

Despite its awesome length, WORKIN’ FOR THE MAN is 
actually a relatively simple program, and once you understand its 
layout, you'll find it relatively easy to create simulations of your own 
from scratch. 

As we've suggested several times in the book, you can often 
make mammoth programming tasks far more manageable by 
starting the job by creating a small number of subroutine calls 
which rotate within a master loop at the beginning of a program. 
This is the way WORKIN’ FOR THE MAN was written. Here, first of 
all, is the program listing. A discussion of it will follow. 


18 REM SSS FSFFF SRF FRX PR RHFHE 
2@ GEN WORKIN: FOR THE MAN 

SO REM SESS EHSSPHHEHSFESXETSEREE 
4@ GO SUS Se@e@a@: REN VARIABLES 


SS LET WEERSWUERR +a 
1@8 GO SUB SB@eaa: REM FPRINTOLUPF 
11@ GO SUB S@aea: REM PEGPLE 
12@ CO SUB S8G8: AEN PRINTOUT 
A380 CO SUB Bike: REM HAKE 
i448 GO SUB Beaea@eG: AEM PRINTOUT 
25@ GO SUB 4888: REN SALES 
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SSGGa: FEM 
UNPREDICTSABLES 

A?Oe LET CAPITAL =CAPITAL -UWAGE sic 
RRFORCE 

28@ GO Toa se 
2958 REM Se SEH FRE SEXES EESHEHE 
SE@G AEM UNPRERTOTABLES 
Seas LS 
S@28 EF RND<.45 THEN GO To 3128 
SOLA LET A=INT iBNDsFi +i 
SMP BEEP .5,AND*5@: BEEP .4,RND 
23 
SBG8 PRINT “‘‘“‘lingans demand or 


*% Payurise® 

S@4a2 LET WAGE =<YINT (288s (veces cas 
WAGE -280113 -1aa 

BSeSR PRUSE ifn 

S@Ga PRINT “‘"'Pay per empiayee 
is Now S$"; HABE 

SSP PRUSE 28 

SOP7S BEEP .S.ANDs5&: BEEP 13 .SNE 


¥ES 

SSGEea CLs 

SiGe FF AND<. 85 THEN GO Th ade 

S31i@8@ PRINT ‘°° INK =; FLSSH 2; °F 
iash Fiood ruins same of Your,” 

Stock"*,.;,"%5tEend by Far damage +r 

epori:*. 

S228 PAUSE ise 

SistS LET A=INT iRNG 

Bi4& LET STotK=sTac 

Sita PRINT 7 INK i 

tai stack destroyed 

Bies, worth S$°; As2S5E 

ait* 

Si6S PAUSE if 

Sire PRINT “"*Stack an hand is nn 
ew “; STOCK 

Side PAUSE 28 

S188 IF RANO>.3 THEN Go ro mece 
Siss CLs 

S228 PRINT TS SUPP Lier annaunces 
dramatic", "price risei" 

B2i8 PRUSE ins 

Se2e@ LET A=INT ¢ SANDsasescosat -F} 
3 -i@ea 

eeeS IF As<.82 THEN Go & Bees 
S23Q@ PRINT “*-‘*Cast af BPSEkKINgG Fib 
bies"“,“goes up py *5 FLASH 1; IH 
Ro 2; "8$";3A; FLASH @:° INK BS; each 
2e2eée@ PRUSE ise 

225@ LET CaostT=CosTes 

3268 PRINT °° INK 7; PRAPER 1; a 
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t new cests “; FLASH 3; INK F; FP 
APER 8; "'$"; COST; 

S272 PRINT "ta make €acth one’ 
BL2S@Q PRUSE ie 

3298 IF RND<.65 AND MARE <SELLPRI 
CE THEN RETURN 

B32aea CLA 


ih a BEEP .5,RND#5@: BEEP .4,ARND 


2Gi2@ PRINT ““"“You have a thante 
to raise", "“yaur price" 
3328 PRINT ““Zibbies now sett fa 


: 2 
334@ INPUT FLASH az; “What Percent 
age Eg ig a oh "7A 


Pe had IF A>S EN LET 2=Z 

LET ZELLPRICE= =INT Bos tSeEL 
EPRICE +AsSELLPRICE/ iG} ) “1 Aa 
3368 PA Sse . 
Bore PRINT * FLASH i; INK 3; "Zibb 
bies sett Fer $";SELLPRICE 


Bsa PAUSE ia@e 
S3S@ RETURN 

BS90 REN £22 FPFFFFFPFPFFFPPF 
42@@ REN ait eS 

423@5 BEEP sRNDz5@: BEEP .€4,RND 


42108 PRINT FLASH 3; PRPER &;3 ° "Ta 
tal stack is “;8TQCK 

4815 PAUSE iae 

4@223 PRINT FLASH 4; PRPER 3; 7 "St 
and by far sates repart..zees” 
4325 PARUSE 3e2e 


cLS 
4@4@8 LET R=INT iRNDsSTOCK- (2-100 
4045 PAPER RNDs6: CLS : BORDER AR 
4@5@ IF A>STOCK THEN GO To 4ase 

4855 BORDER 7: PAPER 7: CLS 

4860 aaa ., INK i; “Totat Zibbi 
aa70 LET sTack=sToacK-—A 


48538 FPRINYT “"“Incoame From sete: $ 
“J ASSELLPRICE 


-oae LET CRPITAL =CAPITAL +ASS5ELLP 
tro 

495 PAUSE 188 

41288 RETURN 

SOGS REM Fee FP HF FPH TF PF FF THIHRE 
Seic REN PRINT QUT 

5228 FOR G=4@8@ TO 5@: BEEP .@288,6 
: BEEP .@88,58-226: NEXT & 

Base CLs 
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IF CAPITAL+STQCK<¢1 THEN Ga 
@@: REM BONKRLIPT 

IF CEPITAL+STOCK 9000908 THE 
NYT FLASH 32; BRIGHT 2; INK 3 
"SWE Made 2B Miltisanii*: PRUs 
: Go Ta 82852 

PRINT INK 2; FLSSH i;° FRC 
REPGRT: WEEK “; WEEK; " 
PRINT ~ a #2; “Cepitat ania 


PRINT © INK 3; “Your stares 
“;S7TQGCK;* Zibbies"*; TRE 38;" 
“  STOSKsSELLPRICE ? 
PRINT INK 2; ° "They seti far 
LPRICE;* each" 

INT INK 2; "and cest €°; 02 
ch ta make” 

INT INK ¥; PAPER 4; 7 "Hark 
“> WORKFORCE: Ppecptie” 
NT FPSPER a2? ., INK 73 Their 


Biit this WEEK, £5 ¥ 
ORKFORCE 

3 ;’"Each Persan ¢ 
‘>; PROBUCE; * Zibbies |B we 
L Geipeut aF “;~PROSUCEs 


fy 


Fea Es 
Si 
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Bs] 
HEN RETURN 

SF SCRPITAL THEN F 
A, A; "Net enaugh 
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(5) 
ee 
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IF MAKE > 
PRINT INK 


” 
” 


MN bE PT 


mm 1 


pone =MAKE-INT itANDSNAKE 


SE 1Lae2 
NT INK 3; FLASH A;A8T @, 
oct in Week “J WEEKS 


LET STOCK =STOCK +NAKE 
LET CAPITAL =CAPITAL-CoOsaTsNA 


PRUSE 58 

RETURN 

REM SEES ESF SFERRHTEXZHE 
REN +s+2PEGPLE xs 

INPUT “HOW many fFeaptie da vy 
WaNt"."to hire? "3R 


Pt 
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@2O LET WORKFORCE =VORKFORCE+A 
@3@ PRINT AT @,@; FLASH 1; K 
dre 
As 


a be mh 


ici Tetatl workfarce is “3; ORK 


S PAUSE 1¢8: 60 Sun Seeae 
6@3?7 IF 8>@ THEN RETURN 
Base INPUT “How many peopie dao y 
ou ol ah ey “>; FLASH 3; INK 4;° 


642 IF’ A=@ THEN Go TO se 
6@a5 IF A>WORKFORCE THEN 28 ro a 


6&a5@ LET =ENT i{RNDsR+33 
Be26a2 PAUSE aaa 
6678 PRINT FLASH 1; BRIGHT 1; IN 
r = ree Ay RN iad allow yo 
ul a if 
6@8@a LET WORKFORCE =VGRKFORCE-A 
6aS0@ PAUSE i828 

RETURN 
PRA REM SF FFF FPHFHRFHRFREHFITH 
BSeea neu BANKRUPT CY 


ith 


B@AR PRINT ‘°°°TRAB 8; FLASH 3; IN 
K BY’ BANKRUPTH! TE" 

“ceo PRINT "° "Ah the Shame oF 4§ 
S@S@ PRINT ‘°"Stitt, you kept t 
he business" 

B@4@ PRINT “going Far “3 Fae cat aires 
; ag aL 1; WEER;: Hash @; INK @;* 
eerks* 

Sasa adel “? "Enter “Y* far anet 
her try =e PFN te gave up” 
Sess Let Ags INKEY $ 

2A60 IF Ag="" THEN Go. a8 B@S55 
Se78@ IF Ag="¥" QR As= * THEN RU 
NM 

BSBA STOP 

S388 REN Nin CReC pete eer eee 
QSia REN VARIABL 

BSea2e REN Ue Lane ca easiest eae eu 
SQ@sea LET CRPITAL =<S88@+INT TANG S28 


GG@a@ LET STOCK =3188+INT IANDs5B3 
S@508 LET SELLPRICE=i8+INT (RND#5 


LET COST=2+INT IRND#5S) 
Ba7Aa IF COST>SELLPRICE THEN GO T 


3a8e LET WORKFAQRECE=74+INF ¢CRNDS id 
D380 LET WAGE=123INT (RNDSSELLPR 


5419@ LET PRODUCE=S+INT {RND6) 
BI4@ LET WEEK=@ 
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& resistance 
r 


i 
Gi3@ LET 2=4 
3148 PAPER ? 


RK 
S5@8 RETURN 
We start with the loop from 40 to 180: 


Cio : BORDER F: IN 


¢@ GOSUB 9000 — This sets up the variables (which change from 
game to game) which determine such things as the number of 
people on your staff, their initial wages, the stock in hand, the 
selling price of Zibbies and so on 


@ Line 50 increments the variable WEEK by one 


@ The subroutine starting at 5000 is called several times 
throughout the loop (by lines 100, 120, 140) to show the 
changing status during the week 


@ The other subroutines do what the following REM statements 
indicate: PEOPLE (hire/fire, from 6000); MAKE (production, 
from 5130) and SALES (from 4000) 


e@ The final subroutine (UNPREDICTABLES, from 3000) is 
traversed each ‘week’ of the factory's life, but the elements in it 
may be bypassed, either completely, or in part. The 
UNPREDICTABLES (which include union demands for more 
money, and flash floods which destroy part of your stock in 
hand) are designed to keep the going tough, but are not so 
arbitrary as to destroy the importance of skill in maintaining the 
health of your factory 


To write a simulation, you first need to work out in your own 
mind what is being replicated, and which variables you will emulate 
in the program. Once you've done this, you need to set up the 
starting loop to control the program. My next step, and one which 
you may want to follow, is to create the standard printout (in this 
case, from line 5000) even before you do such things as assign 
variables. You'll discover that setting up the standard printout will 
tell you each variable you need. In this program, as in others in the 
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book, I've used explicit names for variables, so you do not need to 
maintain a separate register to tell you, for example, that ZA3 is the 
wages and BB is the stock in the warehouse. This sort of random 
variable naming can lead to great confusion. Although it takes a 
little longer to type in long, explicit names, the trouble it will save 
you is well worth the time it takes. 

As the printout was the key to writing this program, it makes 
sense to look at it first. Here is part of a printout: 


FACTORY REPORT: WEEK 5 
Capitat GN hand if 2657.92 


Your stares hold 12 Zibbies 
worth $169.65 


They S&tlt For §$1idg.id Saath 
and Cost $F.821 Sach t5B mate 


Workforce is F peapte 
Théir wages are G42 each 
and the wage bitt this weer 
iS 287 
Each persaen cam make 189 Zibbies 
BR week, 32 LTOtSi HSutput oF FB 

The printout tells you which week it is, how much capital you 
have (from which you must pay wages, and buy raw materials), the 
number of Zibbies you have in stock, the selling and making prices, 
the number of people on your staff, their individual wages and the 
total for the workforce, and — finally — the number of Zibbies they 
can each make per week, assuming they all work at 100% 
efficiency (which they rarely do, as you'll discover). 

This printout, or a variation of it, appears throughout the game, 
using colour and flashing to highlight the different elements in it, 
making it easier to read. When you first run the program, you'll see 
the starting parameters that fate has decreed for you, and then the 
program will go to the PEOPLE subroutine, starting at line 6000. 
“How many people do you want to hire?” you are asked. If you 
decide to hire any, they are added to the workforce, the standard 
printout re-appears with the total wage bill recalculated and you 
continue with the next section of your task, determining how many 
Zibbies you will make. 

lf, however, you decide not to hire any more people, you will be 
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asked “How many people do you want to fire?”. This is the point 
where the union becomes troublesome, and dictates just how 
many people they will let you get rid of. Again the standard printout 
will re-appear, with the new workforce total and wage bill 
displayed. 

Having survived the staff situation, you then face production 
decisions (with the subroutine starting at line 5130 —MAKE). “How 
many do you want to make?” you are asked. If you enter zero, the 
program returns to the main printout, and goes into the SALES 
routine, to sell from your stock. If, however, you decide you want to 
try and make some Zibbies, the program will compare your 
production target with (a) the number of people you have working 
for you that week, keeping in mind that each person has a limited 
output; and with (b) the cost of the material used in each one. If you 
do not have enough people, you'll be told (NOT ENOUGH PEOPLE 
is the somewhat clear message) and be asked to enter another 
production target. In a similar way, NOT ENOUGH MONEY will 
come up on the screen if you set a target which will demand more 
raw materials than you can afford. Once you get a target the 
simulation will accept, it will print on the screen at the top “Target 
week 4 is 92” or whatever. After a short pause, the message 
“Total made in week 4 was 86” or however many were made that 
week. 

Too explicit a series of instructions will diminish the pleasure you 
may have running this simulation, so | will stop at this point. After 
all, | want to leave you a few surprises when you get it underway. 
And by now, if you've followed through the explanations given for 
the other games, you should be able to work your way through this 
program without too much trouble. 

This program has been included in this book because sim- 
ulations are one of the very useful areas in which computers can 
serve us. Creating your own simulations, from running a space 
station to a pancake-making works, can be a good indication as te 
how simulations are created in ‘real life’, and how difficult it is tc 
create computer models of real life situations. For example, a rea 
Zibbie factory would have to allow for contingencies such as the 
possibility of workers being injured on the job, or not turning Uf 
because they are sick, or working slowly because it is hot, or some 
one’s birthday, or Friday, or close to Christmas, or whatever. 
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There could be delays in getting supplies to the factory, or vital 
machinery might break. There could be a fire, an electrical blackout, 
a union lockout... and so on. You'll soon learn the difficulties 
of trying to too closely replicate the reality reflected in your 
simulation. 

That brings us to the end of the games section in the book. It has 
been the largest one in the book because | believe that game 
playing and writing is the surest (and least unpleasant) way to 
develop programming skills. Games also provide some relief from 
‘serious’ computer use. | hope the material in this chapter helps 
with both those aims. Finally, here are some books which you may 
find of interest. 


Suggestions for further reading: 
BASIC Computer Games Ahl, David (ed.) (Creative Computing Press, USA, 1980) | 
What To Do After You Hit RETURN (Hayden Book Company, Inc., USA, 1981) 


26 BASIC Programs for your Micro Daines, Derrick (Newnes Technical Books/ 
Butterworth & Co., 1982) 


67 Ready-To-Run Programs in BASIC Watson, Wm. Scot (TAB Books Inc., 
USA, 1981) 


Inside BASIC Games Mateosian, Richard (SYBEX Inc., USA, 1981) 


Game Playing with BASIC Spencer, Donald D. (Hayden Book Company, Inc., 
USA, 1981) 


Computer Programs That Work! Lee, J. D., Beech, G., Lee, T. D. (Sigma Technical 
Press, Wolverhampton, 1980) 


Producing Computer Poetry Chisman, Margaret; article originally printed in Creative 
Computing, now available (pp. 106—107) in The Best of Creative Computing, Vol 2 
Ahl. David (ed.) (Creative Computing Press USA) 

Sources of ideas to turn into computer games: 


The Complete Book of Indoor Games Arnold, Peter (ed.) (Hamlyn, 1981) 


The Complete Home Entertainer Brandreth, Gyles; (Robert Hale, 1981) 
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Three-dimensional 
graphics 


Science fiction films like ‘Star Wars’ show computers producing 
complex three-dimensional images, and manipulating them in real 
time. While this Spectrum program cannot produce images of such 
complexity, it does manage to produce 3-D images of a sort, and 
allows you to handle them (by rotation) as if they were real objects. 

The program allows you to draw figures using straight lines of a 
length you choose. The explanation of how to use the program may 
seem a little bewildering, but if you enter the program before you 
begin, then follow through the explanation carefully, you should 
find you gain some real control over the program, and can use it to 
produce quite worthwhile ‘3-D’ images. 

First of all, then, enter this program, then return to the book for 
an explanation of how to use it. 


REM #¥ XRF SRE SSH KF RAR ERE 
M THREEDEE ETCH 


Lj Te 
pt 
m 


ee eee eee eee 


ri 

o 

=) 

128 

id 

25 CLS 

2e GO ou Feeae 

= IF FP=1 THEN GO To 288 

4@ LET RS=INKEYS$: IF Rea" THE 
N GO Ta 4@ 

42 LET S8{Rd =R48 

42 LET A=AR+1 

43 IF R=255 THEN PRINT “BUFFER 
FULL“: ST ap 

44 IF RAS$="E" THEN GO Fe iB 

=e GO SUB oeee 

Ga GO SUB 2ewe 

Fe CRAW C-PEEK f(Ba677) ,f-PEER 
(23078) 

Se GO Ta 4e 

a8 
eeaa GO SUB cee 
2@Q5 LET RS=INKEYS: IF AS="" THE 
NGO TO 2a5 
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£218 Go Ta ie 

See 

288@ LET S=L#lL4+Msh 

28128 LET YT=S+N# 

2822 LET @=SaR (T} 

2838 LET H=S@R (5) 

i842 RETURN 

2UOR@ LEFT O=T-Usebl-UaN-Uan 
SOB LET CPs ial -UeM) a4 (H#Od 22 
anal 

SReSCQ LET DP=86 s0404 (U4#o-Ns TU aL aig 
Mis tH#Q) 

eoee RETURN 
-—a ca 

2SOQ IF Rga"U" THEN LET W=N40 
ZO IF R$="D" THEN LET i=-8 
SOLa IF R$="R" THEN LET U=ti-6 
SaS@ IF RS="L" THEN LET Li=tt4+8 
per By a7 at bal oe THEN LET i=sti-G 
Fese RS="F"° THEN LET Valles 
3868 RETURN 

SBR 

Se#eaea CLS 

SELB INPUT “SIZE? GS 

S8Lla INPUT “xX VIEWPOINT? GL 
SReGe INPUT "YY UITENPOINT?': 
SQdQ INPUT “2 UIEWRPOINT?">N 
SQS8 LET A= 

Sea61 FRI “"6° -GET" (CC * PR. -PuTre: 
“R* -RANDOM" 

S87Q LET Bas SINKEYS: IF Rgi"" F 
N GO Ta 5 

SRaR IF Ree as THEN LET P=3: 8 
TO Siiz2 

BOS IF Re="FP" THEN LOT P=e: & 
To SLi 

S@oR IF R$="R" THEN GO Te Bseae 
Slee GO TO Sere 

FLI@ RETURN 

Soa 

SEaQ GQ SUB 7eRee 

GEIB LET RS=S5(A2 

Seal GO SUB Bake 

BES2 GO SUB Sanu 

S40 DRAW C-PEER Sones) | b-PEee 
(BBaFa 

SQ58 LET A=A+1 

SBSR8 ITF SRI se AND AS oes 
EN GO TO 628 

Sere RETURN 

G390a 

FRE LET W=8: LET t=@: LET V=8> 
GO SUB 2eee 

FeIBM PLOT c,.ob 

FESR RETURN 
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FSRa2 

SBG@Q@Q LET AH: LET G=Be@: LET LRN 
O*ei1@e: LET M=RNDsi@e: LET N=RNDS 
pe 

Been CLs 

S@l@ GO SUE seee 

Bele PAUSE S 

Beae GO Tu aee@e 


Make sure the computer is in the CAPS LOCK mode (hold down 
the CAPS SHIFT key, and press the 2 key) before you run this 
program. When you RUN it, the first thing you will see is the 
prompt SIZE? at the bottom of the screen. This prompt wants you 
to enter the size of the lines that go to make up the figures you 
draw with the program. To give you an idea of the scale the 
program is using, the lines in the cube in figure one are of length 20. 
This is a good starting point, so enter 20, then press ENTER. 

The next prompt you'll see is X VIEWPOINT ?. For this first run, 
enter 100 for this, and 150 and 20 respectively for the Y and Z 
viewpoints. 

The screen should clear to show you the following: 


'G’ -GET 
‘P’ -PUT 
‘R’ -RANDOM 


These are the three options which are being offered to you. We'll 
start by using the PUT option, which you indicate by pressing the 
“P" key. If nothing happens when you do this, you probably have 
not engaged CAPS LOCK. 

The screen will clear again, leaving a tiny dot in the centre. This 
dot is the starting point of the figure you are to draw. 

The program will now accept six different inputs: U(p), D(own), 
L(eft), R(ight), F(orwards), or B(ackwards). You just press the initial 
letter of the direction in order to move. Don't linger too long on any » 
key, or you may end up drawing a line longer than you intended. 
Play round with the program for a while, pressing the direction keys 
at random, then return to the book. 
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Now try this sample drawing: 


Figure one: i 


First return to a blank screen, either by typing ‘E’ (for ‘END’) as a 
direction to be moved in, or start again with RUN. Either method 
will get you back to the SIZE? prompt. Then use the same figures 
as | gave before, to get to GET/PUT/RANDOM display. Enter ‘P’, 
and we're ready to go. 


Type ‘U’. This will draw a line from the dot to about three 
quarters of the way up the screen. Type ‘L’. this will join a line going 
to the left to the top of the previous line. Then go down, by pressing 
‘D’. You should now have something looking a bit like a gravestone 
on the screen. We can now join the two ends up to make a square 
by going ‘R’ight. Now, move forward, with ‘F’, and carry out the 
above procedure again. You should now see that we only need to 
add three more lines, and we will have a three dimensional cube, as 
in figure two. 

To reach the points where the extra lines are to be drawn, we will 
have to draw over some of the lines already on the screen. 

The keypresses required are: 


U, B, F, L, B, F, D, B, F and R. 


If you watch the screen closely as you enter these, you should 
have a good idea of how the Spectrum is following your 
instructions. It may be worth your while pressing ‘E’ at this point 
and running through the whole procedure a few more times until 
you can draw a cube without any mistakes. 
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Now, to continue our investigation of 3-D graphics, use ‘E’ to 
return to the SIZE? Prompt, and answer as follows: 


SIZE? 10 

X VIEWPOINT? 100 
Y VIEWPOINT? 150 
ZVIEWPOINT? 200 


Then choose the GET option from the last menu. 


You will find that your cube has been drawn automatically, at a 
reduced size. If it has not been drawn, you must have used ‘RUN’ 
to get to the ‘size’ menu, and not the ‘E’ option. The program 
remembers the keypresses you made in the last shape you draw, 
and if you run the program from scratch, as far as the Spectrum is 
concerned there is no previous drawing. You may like to try using 
‘E’ and the ‘GET’ option to redraw the cube several times, giving 
different numbers in reply to the viewpoint prompts. 


How does it work? 

The program always draws your object starting from the co- 
ordinates 0,0,0 in three-dimensional space. Your answer to the 
VIEWPOINT prompt tells the computer from where in space you 
want the image drawn. The menu (GET/PUT/RANDOM) is asking 
whether the shape drawn should be constructed from keypresses 
from the keyboard (‘P’) or keypresses stored in the program from 
the last picture (‘G’). The ‘R’ option starts an endless sequence of 
drawing the object from random co-ordinates and after pausing, 
drawing it from different co-ordinates. Obviously the ‘R’ option, like 
the ‘G’ option, requires that there is already an image in memory. 
Figure two shows a drawing which you may like to try and 
duplicate. 

Figures three to six show another, rather simpler, image drawn 
from a number of different viewpoints. Figure three is the original 
figure. Figure four is the figure drawn with a smaller ‘SIZE’. Figure 
five is the figure drawn from one end and figure six is the figure 
drawn from underneath. Because the program only produces ‘wire 
frame’ images it is a little difficult to decide whether figure six is 
from underneath or on top. You will find that complex figures are 
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best drawn with a small step size, such as 10, to allow you to get 
more detail into the picture. 


Figure two: 


Figure three: *, 


Figure four: Figure five: Figure six: 


S Ay S / 
Nie 


_* 


— 
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The program is made up of anumber of subroutines, which will 
be covered first, and then I'll go on to talk about the section of code 
from lines 1 to 210. 


Subroutine 1000 — New viewpoint. This subroutine takes the 
new viewpoint, in L, M and N, and using these figures, sets the 
variables S,T,Q and H. These variables are required later by the 
plotting algorithm. 


Subroutine 2000 — Evaluate two dimensional co-ordinates. This 
subroutine returns, in C and D, the screen co-ordinates 
corresponding to the point U,V,W. It uses L,M and N, and all the 
constants defined in subroutine 1000. The constants 128 and 96 in 
lines 2010 and 2020 are to centralize the image, to ensure the point 
Q,0,0 is in the centre of the screen. 


Subroutine 3000 — Alter co-ordinates. The current co-ordinates 
U,V,W are incremented or decremented by a set amount (G) for 
each keypress when the direction keys are used. This subroutine 
carries this out, with the keypress in RS. 


Subroutine 5000 —Menu. This subroutine carries out all the initial 
dialogue with you. Lines 5010 to 5040 ask the now familiar starting 
questions, line 5061 prints the menu, and line 5070 gets the choice 
for the menu. The variable A in line 5060 is the pointer into the 
string where all keypresses are stored for the ‘G’ and ‘R’ options. 
Lines 5080 to 5093 decode the keypress. If ‘G’ was selected, then 
P is set to true, if ‘P’ is selected, P is set to false. If the random 
option is called for, then the subroutine at line 8000 is called. 


Subroutine 6000 — Auto draw. This subroutine automatically 
draws the figure stored in S&. It is used by the ‘G’ option. 
Line 6000: Calls subroutine 7000, which places the initial black dot 
in the centre of the screen. 
Line 6010: Gets the next character of SS in RS, ready for the call to 
3009 in line 6020. 
Line 6030: Works out the new co-ordinates for drawing to. 
Line 6040: Does an ‘absolute’ DRAW to these new co-ordinates. 
The two PEEKs hold the current X and Y co-ordinates of the 
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Spectrum, and so if these are subtracted from the absolute co- 
ordinates to be moved to, an absolute, rather than relative draw is 
achieved. This technique can be applied to any program where the 
normal form of the DRAW statement is inappropriate. 

Line 6050: Increments the pointer in SS, so that the next character 
can be examined. 

Line 6060: If the character is an ‘E’, indicating the end of the 
drawing, then RETURNs. Also RETURNS if the string S$ is going to 
be exceeded when the next line is drawn. 

Line 6070: Loops back for the rest of the characters in SS. 


Subroutine 7000 — Moves the current co-ordinates to 0,0,0 and 
plots a point there. 


Subroutine 8000- Sets A,G (the size),L,M and N, then draws the 
figure (line 8010), PAUSEs, then goes back and draws it again from 
different co-ordinates. 


Line 5: Dimensions S$. 

Line 10: Calls subroutine 5000. 

Line 11: Calls subroutine 1000. 

Line 15: Clears the screen. 

Line 20: Calls subroutine 7000. 

Line 35: Goes to line 200 if the ‘G’ option was used. 
Line 40: Gets a direction keypress. 

Line 41: Stores the keypress in SS. 


Line 42: Increments the pointer A. 

Line 43: Stops the program if S$ has been executed, i.e. 
if more than 255 keypresses were made. 

Line 44: Returns to the starting menu if ‘E’ was pressed. 

Line 50: Acts on the keypresses, 

Line 60: decodes the co-ordinates and 

Line 70: draws to the new position (see description for 
line 6040): . 

Line 80: Loops back for more keypresses. 


Line 200: Calls subroutine 6000 for GET option, 
then, at line 205, waits 
fora keypress, then loops back at line 210 for the 
main menu. 
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Introduction to machine 
code 


You may recall at the very start of the book we spoke of computer 
languages in ‘levels’, with high level languages, like BASIC, being 
fairly close to English, and lower level ones being closer to the 
actual language the microprocessor, the thinking part of your 
computer, uses. The language used by the microprocessor (the 
Z80 in a Spectrum) is the language we call machine code. If you talk 
to your Spectrum in BASIC, part of the computer has spent time 
translating the BASIC message into machine code, so the 
microprocessor can understand it. Now this translation can take 
some time, which is why BASIC is a fairly slow language. As we'll 
demonstrate now, machine code is very much faster. 

Type in, and run, this program: 


0 CLEAR 32000 
20 RESTORE 
30 FORa=0TO 15: READ x: POKE 32000 + a, x:NEXTa # 
40 DATA33, 255, 63,01, 01, 24, 22, 255, 35, 11, 120, 177, 
200,114, 24, 248 : 
50 CLS: PAUSE 20: RANDOMIZE USR 32000: 
PAUSE 20: GOTO 50 


This demonstrates how quickly the screen can be filled. Now 
compare it with the BASIC equivalent: 


10 FORa=1 TO 704: PRINT “*";: NEXT a 


NOTE: It is not fair to judge the lengths of these two programs as, 
for the main part, the first program is far longer than necessary (we 
will see why later). 

The computer itself only understands long streams of digits. For 
example, one instruction for the Z80 is 00111101, which means 
absolutely nothing to most of us. (Note that the Z80 accepts eight 
digit codes, which means that the maximum number it can handle 
is 11111111 or 255 in base 10, the number system we use in 
everyday life). This ‘stream’ of ones and noughts is a binary 
number. A number in our normal system, base 10, has digits 
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between @ and 9, and a binary number, a number in base 2 has 
digits between 0 and 1. If we look at anumber in base 10, the right 
most digit is the units, the next digit is 1's (or ten to the power 1), 
the next being 100’s (or ten to the power of 2), and so on. For 
example: 101 is equal to 1 unit, @x10 and 1x100. 

Base two works on the same principle. The first digit on the right 
is again the units (2 to the power of 0), the next digit being 2's (2 to 
the power of 1) and the next digit being 4's (2 to the power of 2). For 
example, in binary: 101 is equal to 1 unit, @x2 and 1x4 which is 5 in 
base 10. Soif we take 11111111, which is the highest number that 
the Z80 can handle it looks like this: 


1 times 1 
+1 times 2 
+1 times 4 
+1 times 8 
+1 times 16 
+1 times 32 
+1 times 64 
+1 times 128 
= 255 


While we are on the subject of binary numbers, it wold be 
useful to clear up one topic which can cause a lot of problems. 
When talking about computers we often hear the terms ‘bit’ and 
‘byte’. A bit is one of the digits of the binary number. For example, 
in the number 00111010, there are 8 bits. We can talk about parts 
of a binary number by referring to the bits which make it up. Bit 0 
(the right most digit) is, in our example, 0, and bit 3 (the 4th digit 
from the right) is 1. Byte is the term for a number which has 8 bits, 
so 10101101 is a byte. A bit has a value of 1 and the maximum 
value of a byte is 255 in base 10. We use 8 digit codes rather than 6 
or 10 digit ones because the Z80 microprocessor is designed as an 
‘8-bit’ processor, which means, it can handle 8 bits worth of data 
(numerical information), no more and no less. So, as far as data is 
concerned we are restricted to a maximum of 255. You can test 
this by typing POKE 100, 365. The computer will reject it and give 
an error message. 

Let us look now at the way in which we command the computer 
when POKEing. We start with the address of the particular byte in 
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memory, and follow this with the number to be POKEd into it. We 
can think of the computer's memory as a lot of little boxes all of 
which have their own binary number (the address of the box), and 
something in it (the contents). 

As we said alittle earlier, with only one byte, 8 bits, the maximum 
number we can have on the Spectrum is 11111111 or 255 (base 
10). We can live with that when it comes to the contents, but 
imagine what it would be like if everybody's house address was 
between Q and 255. What we do for computer locations is very 
similar to adding street names to house addresses, but they are 
actually numbers. For example, after going through the first 
256(0-255) addresses, we Say that the ‘street name’ is 1 and go 
through the numbers 0-255 once again. So the final address looks 
like this: 


00010110 01011010 
‘street name’ ‘house number’ 


We can now see that because there are 256 street names and 
256 house numbers we have 256x 256= 65536 addresses. 
Technically this is known as a ‘16-bit’ number, and has many 
advantages, mainly because We Can actually think of it as one long 
16 bit number. For example: if we have a number such as 
10101101 and we wish to add it to 10010001 we find that it 
overflows. 


10101101 
10010001 
{BOTTA IO 


OVERFLOW™ bit number 
But if we use 16-bit registers then the overflow is no problem: 


00000000 10101101 
20000000 10010001 
00000001 00111110 
This means that we can quite happily multiply two numbers with 
the knowledge that the result would have to be over 65535 before 
the overflow comes into Operation. 
Going back to addresses, we can see that this is why, with the 
Z80 which uses 16 bit address codes, the maximum number of 
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addresses it can cope with is 65535. Which, if you divide by 1024 (1 
kilobyte or 1K) equals 64K which is the maximum size of memory 
of a Z80 computer. Note that this is true of the ZX Spectrum which 
has a maximum memory of 16K ROM and 48K RAM 
(16+48=64k). 

RAM stands for Random Access Memory, and ROM stands for 
Read Only Memory. If we consider a ‘location’ in memory as a 
house, we can say that with RAM you can look through the 
windows and see the contents and open the door and change it. 
But with ROM you can look through the windows and ‘read it, but 
the door is locked so you cannot go in and change it. 

Handling binary numbers is far too complicated for ordinary use. 
This is where our third and most important base comes in, base 16. 
With this base, an 8-digit binary number can be written down to a 
2-digit base 16, or hexadecimal number. You'll recall that a number 
in base 2 has digits of ® and 1, and with base 10 anumber is written 
with digits between @ and 9, so base 16 should have digits 
between 0 and 15. However, we haven't got any digits bigger than 
9. We use the first six letters of the alphabet: 


10=A 
11=B 
12=C 
13 =D 
14=E 
15=F 


The simplest way of converting an 8 bit binary number into 
hexadecimal or base 16 is to separate the 8 bits into two groups of 
4 bits and convert each group into a single character and then 
combine the two characters. For example: 


10111010 base 2 


x \ 
1011 1010 
\ 4 
1=B 10=A 
\ #4 
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Hence we can now convert any value of a byte into a two digit 
hexadecimal number. This is the most convenient, and the most 
common way of representing a single byte. 

The table below shows the equivalent binary, decimal and 
hexadecimal numbers. 


DECIMAL HEXADECIMAL BINARY 
i) i) 0000 
1 1 0001 
2 2 0010 
3 3 0011 
4 4 0100 
5 5 0101 
6 6 0110 
7 7 Q111 
8 8 1000 
9 9 1001 
10 A 1010 
11 B 1011 
12 c 1100 
13 D 1101 
14 E 1110 
15 F 1111 


Now that we basically understand the mathematics of machine- 
code (the boring bit), we can move into actual programming. 

The Z80 itself only understands numerical codes rather than 
actual instructions. What we do is write our program or routine 
using a ‘mnemonic’ or instruction word, and then convert this to a 
number or jgroup of numbers which can be POKEd into the 
computer in their decimal form, and executed by a USR routine. 
Forexample, enter this into your Spectrum: 


CLEAR 32000 


be safely situated, 32000. The next problem is to get our machine 
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code into this area of RAM. The way we do this is simply by 
POKEing the values in. 


Try this: 


POKE 32000, 1 (then press ENTER) 
POKE 32001, 0 

POKE 32002, 0 

POKE 32003, 201 


Now type PRINT USR 32000 and it will print @. POKEing 
numbers in like this, is ideal for just a few numbers, but if you have 
30 or more it gets tedious. There are two ways of simplifying the 
task: 


(i) aFOR/NEXT loop: 
10 FORa=32000TO32003: INPUTx:POKEa,x: NEXTa 
(ii) UsingDATAstatements: 


5 RESTORE 
10 FORa=32000 to 32003: READ x: POKE a,x: NEXT a 
20 DATA1,0,0,201 


Both these methods have their particular applications, but | 
prefer the second method using a DATA statement, because you 
can easily look at, and, if necessary modify it. 

Here is a program for loading machine code into the Spectrum: 


10 INPUT “Start address?” ;start 

20 CLEAR start 

25 RESTORE 

30 LET start=1 + (PEEK 23730 + 256*PEEK 23731) 

40 FORa=start TO 65535 (use 32767 on a 16K Spectrum) 
50 READ x: IF x=999 THEN STOP 

60 POKE a,x 

70 NEXTa 

80 DATA... you put your routine here... 
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Let's look at the program line by line, to see how it works: Line 
10 asks for the start location of the Program. We discussed the 
start location earlier. 20 CLEARs Space at, and above, this location. 
25 RESTOREs the DATA pointer to the first element of DATA. 30 
reassigns the variable ‘start’ to its original value. This is necessary 
because CLEAR wipes all variables. 4Q Starts a loop between our 
Start location and the maximum possible address on the Spectrum 
(65535 on a 48K machine, 32767 ona 16K one). 50 READs the first 
element of DATA and checks whether it is 999, which is an illegal 
code for POKEing, so we use it to identify the end of the DATA. 60 
loads or POKEs the address with the contents (x) which have just 
been read from the DATA statement. 70 repeats the loop. 80 holds 
the decimal values of all the instructions in your routine, and ends 
with a 999. It is not necessary to have all the DATA in one line. You 


There are no variables, as such, in machine code. Instead there 
are ‘registers’ which can be loaded, read and manipulated. Here is 
a simple sketch of the Z80 registers: 


8 bits 8 bits 
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Each of the single letter registers (B,C,B’, C’,D and the like) are 8 
bit or single byte registers but are designed to be combined to 
make 16 bit registers. The registers in bank zero, except for F, can 
be used by you in any way you like. Fis used by the computer for its 
own operations, and therefore should not be altered. 

Register pairs 1X and 1Y are index registers which we'll leave 
alone for the time being. SP is the Stack Pointer which is used by 
the computer, but can be used to advantage by an experienced 
machine code programmer. 

PC is the Program Counter which holds the location in memory 
where the last executed instruction is situated. Register R is 
another one used by the computer, and has an apparently random 
value. It is possible to change this value, but because it is used for a 
specific purpose this is rarely done. 

The registers in bank one can be used by you, but are not 
particularly easy to manipulate. For the time being, we will 
concentrate on the use of the registers in bank zero, except for F 
(that is, A,B,C,D,E,H and L). 

As | said earlier, all these registers are simple 8 bit/one byte 
registers, with a maximum value of 255. However, Z80 machine 
code was written so it is simple to create register pairs by 
combining B andC, DandE, andH and L (BC, DE and HL) which can 
then be treated as 16 bit registers. As you may recall from our 
earlier discussion, this gives us the range zero to 65535. 

From discussing the existence of register pairs, we'll move to an 
explanation of how to put what we want into them. To load a single 
register with a number we use an instruction of the form: LD 
register, number. 

So, if we wanted to load register A (the Accumulator, as it is called) 
with the value 1, the machine code instruction would be: 


LD A,01 


We can do the same thing on any of the single registers: A, B, C, 
D,E, HorL: 


LD B,255 


The number loaded into a register must lie between zero and 255. 
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If we then decide to treat D and E as a register pair (DE), we can 
handle it in the same way: 


LD DE,1025 


In this case we can use any number in the range zero to 65535. 


We must remember that we have to convert a statement of the 
form LD B,255 into a decimal code before we can put it into the 
computer. Here is a table of LD commands, and their codes, with 
xxx being a number between zero and 255: 


LD A,xxx 62 xxx 
LD B,xxx O6 xxx 
LD D,xxx 22 Xxx 
LD E,xxx 30 xxx 
LD C,xxx 14 xxx 
LD H,xxx 38 xxx 
LD L,xxx 46 xxx 
LD BC, xxx xxx @1 xxx xxx 
LD DE, xxx xxx 17 XXX XXX 
LD HL, xxx xxx 33 XXX XXX 


Not only can you load a register with a number, but you can also 
load one register with the value of another. For example LD A,B 
means load the register A with the value of register B. 
Unfortunately, there are no commands to load one register pair 
with the contents of another. Therefore, if you want to load HL with 
BC, it is necessary to do the following: 


LD H,B 
LD L,C 


Note that there are no line numbers, as such, in machine code. 
So, if you want to JumP or perform a loop, you have to JumP to an 
address. But before we do any JumPing, there are a couple of other 
things you can quite easily do to registers. 
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For example, if you want to subtract a number from register A, 
you do this: 


SUB A,01 


which means LET A=A — 1 or SUBtract 1 from A. You can also 
subtract other registers from register A: 


SUB A,B 


The codes for all the instructions are listed in the Spectrum 
manual (pp 183 to 188 of the first edition). You'll also find them in 
most machine code books written for the Z80 processor. 

After you've called a machine code routine, that is, after you've 
told the computer to PRINT USR...or RANDOMIZE USR..., 
you need an instruction in machine code to tell the computer to 
return to using BASIC. It is much the same as when you use the 
GOSUB command in BASIC; you need a RETURN to get back to 
the main program. The command you use to get back to BASIC 
from machine code is RET, which has a decimal code of 201. 

There's one more thing I'd like to point out before you'll be ready 
to embark on the rewarding task of actually writing your own 
machine code routines. If you type PRINT USR xxx, the number 
printed will be the value of the register pair BC after the routine. So 
if we carried out the following routine: 


LD B,O 
LD CO 
RET 


which we could do by using the machine code loader given earlier, 
and the values 06,0/14,00,201,999; and then entered PRINT USR 
32000, we'd get the value of the register pair BC, which — not 
surprisingly — will be zero (as the routine has loaded BC with zero). 

Now try playing around with the values of the 2nd and 4th bytes. 
These are the ones which control B and C. The value for B is the 
number of 256’s, and C is the remainder (between @ and 255). 
When you work out the code for a register pair loading (LD HL, xxx 
Xxx) it is important to remember that it takes the value for the 
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remainder (L or Low Byte) first and then the number of 256’s (H or 
High Byte). For example, if the number of 256’s is zero, and there is 
a remainder of 100, H equals zero, and L equals 100. Using 
mnemonics we'd write LD HL,000 100 which in decimal would be 
33 100 000. Note that the numbers are swapped around when it 
comes to coding them in decimal form. 

Try this: 


LDB,O 06 00 
LDC,O 1400 
LDA,12 6212 
SUBA,6  =.21406 
LDC,A 79 
RET 201 


What this is doing is: 


LD B,O Load B with 0 

LDC,O Load C with 0 

LDA,12 Load Awith 12 

SUBA,6 Subtract 6 fromA 

LDCA Load C with the value inA 
RET Return to BASIC 


The BASIC equivalent would be: 


LETB=0 
LETC =0 
LETA= 12 
LETA=A-—6 
LETC=A 
RETURN 


The BASIC version takes over 60 bytes of memory. The machine 
code one takes just 10 bytes, and is much faster. 

This brings us to the end of this introduction to machine code. It 
was not intended to turn you into a master machine code 
programmer, but rather to give you a basic understanding of the 
principles involved, and to give you a basis to build on. 
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Suggestions for further reading: 


780 Instruction Handbook Nat Wadsworth (Scelbi Publications, USA, 1978). This 
booklet explains, in easily understood terms, the capabilities of the Z80's instruction 
set. It serves as a reference to the standard mnemonics, machine code and usage 
for each type of instruction provided in the Z80 CPU. Mr Wadsworth says: “It is 
meant to serve as a practical guide for the novice, intermediate, or professional 
programmer who has a requirement to work at the machine or assembler language 
level with a Z80 based microprocessor”. 


780 Software Gourmet Guide and Cookbook Nat Wadsworth (Scelbi Publications, 
USA, 1979) This book contains a complete description of the Z80’s instruction set, 
and a wide variety of programming information in the form of useable routines. 
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A guide to better 
programming 


In computer programming, as in most areas of human 
accomplishment, a value system has been developed which 
classes certain techniques as ‘good’, ‘not so good’, or ‘bad’. In the 
early days of working with your Spectrum, the fact that you could 
get a working program which did, more or less, what you intended 
is a significant achievement in itself. But as you spend more time 
programming, you may perhaps think it worthwhile to try and 
improve your technique. Doing this will not only make programs 
easier to debug, but it will be much simpler to work out which 
particular section of code is supposed to achieve what end. If you 
want to further develop a program later on, a properly structured 
one will be much easier to work on than one which is a convoluted 
mass of leap-frogging GO TOs, and long strings of IF THENs. A 
well-written program is also easier to use. 

However, the rules are not engraved on tablets of stone. | do not 
accept all of them unquestioningly, and | do not suggest that you do 
either. The use of unconditional GO TO commands, for example, is 
considered the height of poor taste in programming, but ina BASIC 
such as that provided on the Spectrum which does not have 
procedures, REPEAT/UNTIL or DO/WHILE, GO TO can often not 
be avoided. However, it is worth looking at any unconditional GO 
TOs in your programs to see if they can be avoided, either by 
moving whole blocks of code to another position within the 
program, or by use of a subroutine, or a FOR/NEXT loop. 

There is another example of ‘the law of good programming 
practice’ which can often be safely ignored on the Spectrum. It is 
considered pretty bad form to jump out of FOR/NEXT loop 
without letting them run their course. On some computers, Suc 
as the BBC Microcomputer and the Acorn Atom, it is impossible t 
jump out of too many loops in a program without the whole thin 
crashing, but you can do so with impunity, as many times as yo 
like, on the Spectrum. And an uncompleted FOR/NEXT loop is 
lesser sin than a lot of IF X = 3 THEN LET X = X + 1: GO TO 
statements which are often the only alternative to allowing FOR 
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NEXT loops to be exited prematurely. 

Keep in mind then, when reading the rest of this chapter that the 
‘rules’ are more of the nature of suggestions, or observations. 
Read them, and think about them, but then feel completely free to 
ignore them if you think they are not the best idea to apply in a 
particular programming situation. However, the rules would not 
have evolved unless there were good reasons, so you may benefit 
from trying to apply them before you decide to discard them. 

Many books on programming suggest you start with a flowchart 
which links boxes and diamonds containing decisions the 
computer must make with lines showing the flow of the program 
when itis running. Although it is not important to produce elaborate 
flow diagrams, you may well find that a rough flowchart is helpful in 
sorting out in your own mind, before you actually start punching 
code into your Spectrum, exactly what it is you want the program 
to achieve. 

Sometimes a series of key statements, perhaps linked by lines 
and arrows, is all you'll need. Such a series of statements for a 
BREAKOUT type of program, for example, might read: “Set up 
variables; print the initial bricks at the top of the screen; move the 
ball; read the keyboard to see if the player wants to move the bat: 
check if the ball has hit a wall and if it has deflect it; check if the ball 
has hit a brick and if it has erase the brick and increment the score: 
check if the ball is at the bottom of the screen and compare its 
position with the position of the bat; if the two coincide, let the ball 
bounce upward at a randomly-determined angle, if not, decrement 
the ball count by one, and see if the available balls have been used 
up; if So, go to the end of the game, if not, go back to the line which 
moves the ball, and continue cycling.” If you wanted to, you could 
write a Breakout program based just on this outline. If you Started 
to write the program without any outline at all, you might get to the 
€nd and realise when you first ran it that you had left something 
quite important out. You would then either have to try and squeeze 
it in between other statements, add an ugly GO TO to put it at the 
very end, or try and get around it some other way. 

Every time the Spectrum comes to aGO TO ora GO SUB, it has 
to search the whole program from the very first line, line by line, 
Until it finds the one designated. Therefore, the later in a program 
the line appears, the slower the program will run. The speed is only 
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affected very slightly, but in a moving graphics program every delay 
can make the program less effective. Therefore, you should put 
often-called subroutines as close to the beginning of the program 
as you can. When the speed of the program is important, you could 
start the program with a REM statement giving the program its 
title, with the second line a GO SUB to, say, line 9000 where the 
variables would be initialised, and any instructions to the user could 
be given. This has two advantages. Firstly, it means that the 
computer does not have to go through all of the initialisation and 
instruction routine every time it searches for a GO TO or GO SUB, 
and secondly if you find — while writing a program — that you have 
left out a variable which is needed, you can easily add it to the end 
of the program before the final RETURN, rather than having to try 
and squeeze it in near the beginning. 

Another aim to keep in mind when writing a program is that 
anyone using it should know, without doubt, what they are 
supposed to do. The program should either contain clear 
instructions, or they should be provided in some form with it. A 
combination of written instructions on a sheet of paper, with a 
condensed version of them (such as telling the user which key to 
press to get which response) within the program is probably better 
than a vast sheaf of instructions actually within the program. This is 
not so important for a program intended solely for your own use, 
but is vital for programs which will be sold, or otherwise supplied 
for other people to run. 

It is also important to add ‘mug traps’ into your programs, to trap 
erroneous input before it causes a program crash. Ways of doing 
this are discussed in the education chapter and mentioned in other 
places in the book. Techniques which allow the user a chance to 
examine input as entered before it is finally accepted by the 
program (such as in several programs in the business chapter) are 
important in programs where a great deal of information must be 
entered. A final check, and the chance to correct information which 
has been accepted, is also a good idea. Again, many of the 
programs in the business chapter include this facility. 

Further to the above, the program prompts should be fairly clear. 
A flashing cursor at the bottom of the screen shows that an input is 
expected, but unless something is either printed on the screen, or 
included within the input statement, the user may be ata loss as to 
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what must be entered. A separate written list of requirements in no 
way compensates for proper user prompts within the program. 
Many programs written on the Spectrum's predecessor, the ZX81, 
could not afford the luxury of explicit user prompts, due to a 
shortage of memory, but this excuse is generally not applicable to 
the Spectrum. 

REM statements, explaining what the following section is 
supposed to do, can help keep a listing transparent, and ensure 
that when you return to it after a break, you know what each 
section of the program is supposed to be doing. In the education 
section, the CATS AND THINGS program shows the correct use of 
REM statements. Looking at the REM statements alone tells you 
just about all you need to know about the program. If you needed 
to, you could probably construct the whole program yourself just 
from the REM statements: CHOOSE AND FORM OBJECT; PRINT 
RND NO OF OBJECTS; CORRECTION SEQUENCE; PRAISE; 
SINGLE KEY INPUT; DATA. There is no doubt that a program 
which includes REM statements is easier to unravel than one 
which does not. 

Once you've worked out what your program is meant to do, and 
have written a list of the main parts of the program, make a list of 
the parts of each part. By breaking down each routine into smaller 
routines, you'll find the program practically writes itself. You will 
also be alerted to possible errors and omissions, even before 
you've entered a single line of code. It may be worth keeping a 
separate sheet of paper on hand while you're doing this, to note the 
variables which will be needed. Then, when you come to set up the 
‘assign variables’ section of your program, you'll already have a list 
of the ones you need. 

You'll find it easier to work out what is happening in a program if 
you use explicit variable names, like SCORE for score, and 
HISCORE for high score, and so on. Although these take a little 
longer to type than do single letter variables, they minimise the 
chance of using the same letter twice within a long program for 
different things, which can cause hard-to-trace program 
breakdowns. Longer variable names also, of course use up more 
memory than do single letter names, but this is unlikely to be a 
Problem with most programs you write on the Spectrum. You'll 
see in several of the business programs, such as FINANCIAL 
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MODEL, how useful explicit variable names can be. In this 
program, for example, variable names include TOTAL, AVERAGE 
and NUMBER. 

In general, do not re-invent the wheel. Although you should not 
steal or adapt programs and then try to pass them off as your own, 
there is little point in spending hours of programming time working 
out, for example, a numerical sort routine, when a number of 
suitable routines are already available in publications. It is quite 
likely, anyway, that you’ll end up producing an identical routine to 
one which you could have lifted or adapted in the first place, as 
there is a limited number of ways to carry out certain tasks. This 
suggestion only applies if you are in a particular hurry to get a 
program finished. The satisfaction you will gain by writing a routine 
from scratch, no matter how standard it is, and the greater insight 
you are likely to have into its operation, will more than repay the 
time invested in most cases. So, if you have time, re-inventing the 
wheel may be worthwhile. 

Many programmers become proficient fairly quickly in using 
certain parts of Spectrum BASIC, but once they have mastered 
this, they put the manual away and do not continue exploring the 
other statements and commands available in the language. No 
matter how familiar you become with your Spectrum, and its 
version of BASIC, you should look through the manual (and this and 
other books on the computer) from time to time, just to see if there 
is some aspect of it which you have either misunderstood, or of 
which you know nothing. 

You may find it easier, and more instructive, to mentally ‘run’ 
parts of a program as though you were the computer, than it would 
be to just press RUN. Start at the beginning of the program, and 
follow the instructions as you come to them. When you are acting 
as the computer in this way, you'll often discover clumsily written 
routines or ones which are potential trouble spots, which might not 
show up when the Spectrum is running the program. ‘Hand- 
running’ a program is also a good time to determine if, at any point, 
the computer will try to do something like divide by zero which 
would cause the program to halt with an error message. 

Make sure the program output is clear to the user. You cannot 
write a program assuming that you'll be looking over the user's 
shoulder every time the program is run. A program which need 
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you to say things like “That figure in the top right hand corner is the 
number of attempts you've made so far to guess the answer” or 
“The first number you see is the result of the year’s sales and the 
second is projected sales for the second month” could hardly be 
described as well-written. 


The suggestions put forward in this chapter fall into two main 
areas: 

—Thinking before starting to program; and 

—Working out how the program interacts (both in accepting input, 
and in outputting results) with a user who did not write the 
program. 


If you carry out your programming with the intention of doing the 
best you can in both these areas, you’ re likely to find the quality of 
your programming work improves almost immediately, and will 
continue to improve. 


Suggestions for further reading: 


The Programmer's Book of Rules Ledin, George and Ledin, Victor (Lifetime 
Learning Publications, USA, 1979) 


BASIC Programmer's Notebook Savage, Earl R. (Howard Sams & Co., Inc., USA, 
1982) 


BASIC With Style Nagin, Paul A. and Ledgard, Henry F. (Hayden Book Company, 
Inc., USA, 1978) 


Guide to Good Programming Practice Meek, Brian and Heath Patricia (eds) (Ellis 
Horwood Ltd./John Wiley & Sons, 1980) 
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HISTORY 

Your Spectrum is one of the latest stages in the long road which 
man has travelled in his attempts at building calculating machines. 
The earliest ‘machine’ was probably the abacus, which used 
parallel rods ona frame. The position of beads on the rods indicated 
a particular number. The abacus was used up until very recently, 
when it was superseded by the pocket calculator. 

John Napier, from Scotland, is one of the earliest figures we can 
identify who contributed to the production of ‘calculating 
machines’. Napier invented what became known as “Napier's 
Bones”, nine four-sided segmented rods which allowed 
multiplication to be performed by adding together numbers 
displayed on the rods. The English clergyman, William Oughtred, 
developed a primitive slide rule in 1621, which multiplied numbers 
_as do all subsequent slide rules — by adding lengths related to the 
logarithms of those numbers. 

Later in the 17th century, Blaise Pascal developed a method of 
adding numbers together using interlocking wheels. He put the 
wheels in a box, with little windows to display the result of a 
calculation after you ‘dialled’ the numbers you wished to add. 
Gottfried Leibniz, a contemporary of Pascal, worked out a way to 
mechanize multiplication. His method was so good it was still 
being used in calculating machines 250 years later. 

In 1792, Charles Babbage was born in Devon. He is a major 
figure in the history of computers. In fact, many say he invented the 
very first one. Babbage was unhappy with the mathematical tables 
available in his day, and tried to build a ‘difference engine’ which 
would work out more accurate ones. He was let down by the 
inability of the engineers of his day to build parts to the accuracy 
required. Babbage lost interest in his difference engine, and began 
the construction of an ‘analytical engine’ which, if it had worked as 
planned, would have been the first computer, a calculating 
machine which could carry out any kind of calculation, and which 
would be able to make decisions on what it would do next as a 
result of results obtained during the calculation. 

The mathematics which lies behind computers’ ability to make 
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decisions is called Boolean algebra. It was devised — long before 
present-day computers were conceived — by the English 
mathematician and logician, George Boole. In 1890, punched cards 
were used for the first time, to record and tabulate an American 
census. The card system was developed by Herman Hollerith, who 
formed a company to sell his system. The company prospered, 
swallowed up competitors, and eventually was renamed the 
International Business Machine Corporation, now the biggest 
computer company in the world, IBM. 

In the 1870's, a British physicist Lord Kelvin developed a device 
to predict tide times, and later suggested that a machine which he 
called the ‘differential analyser’ could be built which would solve 
not only tide prediction problems, but general problems associated 
with the solution of differential equations. Such a machine was 
built in 1930 by a professor at the Massachusetts Institute of 
Technology, Vannevar Bush. Although the machine worked, Bush 
realised that there was no future in mechanical calculating 
machines, and replaced parts of his machine with valves. The 
modern computer moved another step closer to reality. 

In the 1940's, George Stibitz, who was working for Bell 
Telephone Laboratories, discovered that binary information 
(information stored as a pattern of ones and zeroes) could be 
represented and manipulated by a series of switches, with ‘on’ 
representing one, and ‘off’ representing zero. A device he rigged 
up using telephone relays and little lights was the world’s first 
electronic calculator, and pointed the way to the use of binary 
arithmetic in computers. Nearly all modern computers use binary 
arithmetic, which the computer generally translates into numbers 
and letters we can understand. 

Although the idea of the first computer was outlined in 
Cambridge, England in 1832, it was not until 1944, in Cambridge, 
Massachusetts, America, that the idea actually came into being. 
The first fully automatic calculating machine, the Automatic 
Sequence Controlled Calculator, was completed in that year by 
Howard Aiken of Harvard, working for the International Business 
Machines Corporation. 

Early computers took up a great deal of space, used vast 
amounts of electricity to power all their valves, and were 
notoriously unreliable. The transistor, invented in 1947, did much 
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to reduce the size of computers, but it was not until the first ‘micro- 
processor’ (the thing we now know as a ‘chip’) was built in 1971, 
that tiny computers of today, such as the Spectrum, became 
possible. 

The idea of the integrated circuit, the forerunner of the chip, was 
first suggested by G. W. Dummer, who worked for the British 
Royal Radar Establishment. Nobody took much notice of the idea, 
and it wasn’t until six years later that an American, Jack Kilby, 
working for Texas Instruments, actually made the first one. 

The American company Intel made the historic first micro- 
processor, known as the 4004, in November 1971. Intel, and the 
world, did not realize at first the enormous social impact their 
product would have. It took almost a year before people began to 
realise that the seeds for a revolution which could transform the 
world had been sown. 

The first personal computer, the Altair, was built by a small New 
Mexico company, Mits, in 1975. The race to produce ever-smaller, 
ever-more powerful personal computers was underway. Clive 
Sinclair entered that race in the late seventies. 

Clive Sinclair had founded his first company, Sinclair Radionics, 
in 1962 to produce radio and amplifier kits for sale through mail 
order advertisements. By 1967, the company was turning over 
around £100,000 a year, and the range of products had expanded 
to include hi-fi systems. Five years later Sinclair entered the 
calculator market with the Executive, the world’s first pocket 
calculator, which made world headlines. The world’s media took 
note again in January, 1977 with the launch of Sinclair's 
Microvision, the world’s first ‘pocket’ television, with a tiny, two- 
inch screen. Two years later, a UK version selling at less than half 
the cost of the first model was produced. 

At the end of January, 1980, Clive Sinclair released his first 
computer, the ZX80. It was the cheapest computer in the world at 
the time, and seems to have played a major part in bringing down 
the prices of small computers generally since that time. With the 
launch of the somewhat limited ZX80 in 1980, Sinclair became 
almost overnight the UK's largest microcomputer manufacturer. 
With the release of its successor, the much more flexible ZX81, 
just over a year later, Sinclair gained the world title. 

The Spectrum, which had its UK launch in April, 1982, is a worthy 
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successor to the ZX81, offering similar computing power to the 
ZX811 (although it runs far more quickly), but with added features 
such as colour, sound and high resolution graphics. Its release 
triggered a wave of price reductions in other small colour 
computers and a number of rivals to the Spectrum were soon 
announced. 


Suggestions for further reading: 

The Making of the Micro Evans, Christopher (Gollancz, 1982) 

Early British Computers Lavington, Simon (Manchester University Press, 1980) 
The Personal Computer Guide Hartnell, Tim (Virgin Books, 1982) 


Personal Computers Handbook Buchsbaum, Walter H. (Howard W Sams & Co., 
Inc., USA, 1981) 


The Personal Computer Book Bradbeer, Robin (Gower Publishing Co., 1982) 
A Simple Guide to Home Computers Ditlea, Steve (A & W Visual Library, USA, 1979) 


Getting Involved With Your Own Computer Solomon, Leslie and Veit, Stanley 
(Enslow Publishers, USA, 1977) 


Personal Computing, a Beginner's Guide Bunnell, David (Dutton, USA, 1978) 


PERIPHERALS 

This is the jargon word for ‘things which are attached to the 
computer without actually being part of it’. The most important 
peripherals are human input devices (eg. keyboard, built into most 
computers nowadays), human-readable output devices (screen, 
printer), and mass storage devices (such as a disc or tape). Most 
large computers have slave computers which handle their 
interface with the real world (peripheral processors). The slaves are 
generally a lot bigger than the Spectrum. 

An RS232 network interface board is available for the Spectrum 
which allows you to connect the computer to a very wide range of 
Printers, terminals and other computers. The RS232 is one of the 
Standard interfaces available, which is why so many RS232- 
Compatible devices have been made. 


212 Appendices 


Printers 
A printer is needed for most serious applications. Types of printer 
and relevant bits of jargon include: 


Line printer: a large, expensive device which prints a whole line ata 
time, typically at a rate in excess of 600 lines of 132 characters per 
minute. Used with larger computers. 


Daisywheel and golfball: complete characters are formed by 
impact, as by a typewriter. 


Dot matrix: characters are made up of an array of dots, produced by 
impact, thermally, or electrostatically. 


Impact: the print mechanism physically strikes an inked ribbon 
which marks the paper. 


Thermal: special paper which blackens when heated; the printer 
very rapidly heats and cools a pinpoint area of paper at a time. 


Electrostatic: aluminium-coated silvery paper; the printer 
generates sparks which expose a black backing. 


You pay for speed and good print quality. Thermal and 
electrostatic paper is expensive, although the printers themselves 
are cheaper. If you simply want to get information out as cheaply as 
possible (and not in large quantities), the Sinclair printer for the 
Spectrum is perfectly satisfactory. At the time of writing 
electrostatic printers start at £60 (Sinclair, 32 characters per line), 
general-purpose impact dot matrix from £200, thermal slightly 
less. Daisywheel typewriters cost from £300, and fast daisywheel 
printers around £1500. 


Memory, or Mass Storage Devices (MSDs) 

The most common mass storage devices are magnetic tape and 
magnetic disc. For cassette recording of Spectrum programs, 
you'll probably find mono portables are best. Try to avoid using a 
machine with a stereo head. If you can, try to get a machine known 
to give good results with computers (not necessarily an expensive 
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one). Use mains, rather than battery power (if you get bad results 
with mains power, use a different recorder). Useful frills for tape 
use include a tape counter; manual (rather than the ubiquitous 
automatic) level control; recording level meter; cue and review 
facilities; a suitable tape loading aid to set levels and check for 
dropouts. A tone control is definitely undesirable; if your recorder 
has one, keep it set to its maximum position. In many cases it is 
best not to plug in the earphone and microphone leads 
simultaneously. 

Use good tape, never longer than C60. TDK type D is excellent. 
BASF, Agfa, etc., all produce satisfactory tapes. Good C12 and C15 
tapes as sold for computer use are the best, but not all of these 
tapes are of high enough quality. A tape loading aid will help you to 
check on the quality of a tape by recording a program and 
monitoring the level fluctuations. 

Discs are much faster than tapes. They also allow information 
anywhere on the disc to be found fast (no rewinding). You can read 
from several files in rapid sequence.and it is possible to alternate 
operations on different files on the same disc (e.g. read details ona 
stock line, update the information, write the new information to 
another file, or even to the same one. On tape this would be 
impossible: it would require constant precise rewinding). 

The Microdrive, a miniature floppy disc, can hold up to 100K of 
information. Up to eight at a time can be connected to the 
Spectrum. Information is transferred to and from the Microdrive at 
an incredible 16K a second, whereas the transfer rate to a cassette 
tape is around 1.5K a second. 

Mass storage is never 100% reliable; it is vita/ to keep backup 
copies of valuable information. To a certain extent original 
information and printed output can be used as a last ditch 
safeguard; you will not rely heavily on this after you have had to re- 
enter three months worth of orders manually. Backups need not be 
on the same MSD as the working copy: discs can be backed up on 
tape, for example. Keep backups at a different location from the 
working copies. Remember that the information stored can often 
be much more valuable than the computer system itself. If 
travelling by train or Underground, don’t put magnetic media on the 
floor near motors. Never assume without checking that the disc or 
tape you are going to erase and rewrite is actually the right one. 
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SPECTRUM SPECIFICATIONS 


Dimensions 

Width 233mm 
Depth 144mm 
Height 30mm 
CPU/Memory 


Z80A microprocessor running at 3.5 MHz. 16K-byte ROM 
containing BASIC interpreter and operating system. 16K-byte RAM 
(plus optional 32K-byte RAM on internal expansion board) or 48K- 
byte RAM. 


Keyboard 

40-keyboard with upper and lower case with capitals lock feature. 
All BASIC words obtained by single keys, plus 16 graphics 
characters, 22 colour control codes and 21 user-definable graphics 
characters. All keys have auto repeat. 


Display 

Memory-mapped display of 256 pixels x 192 pixels; plus one 
attributes byte per character square, defining one of eight fore- 
ground colours, one of eight background colours, normal or extra 
brightness and flashing or steady. Screen border colour also set- 
table to one of eight colours. Will drive a PAL UHF colour TV set, or 
black and white set (which will give a scale of grey), on channel 36. 


Sound 

Internal loudspeaker can be operated over more than 10 octaves 
(actually 130 semitones) via BASIC BEEP command. Jack sockets 
at the rear of computer allow connections to external amplifier/ 
speaker. 


Graphics 

Point, line, circle and arc drawing commands in high-resolution 
graphics. 16 pre-defined graphics characters plus 21 user- 
- definable graphics characters. Also functions to yield character at a 
given position, attribute at a given position (colours, brightness and 
flash) and whether a given pixel is set. Text may be written on the 
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screen on 24 lines of 32 characters. Text and graphics may be 
freely mixed. 


Colours 

Foreground and background colours, brightness and flashing are 
set by BASIC INK, PAPER, BRIGHT and FLASH commands. OVER 
may also be set, which performs an exclusive—or operation to 
overwrite any printing or plotting that is already on the screen. 
INVERSE will give inverse video printing. These six commands 
may be set globally to cover all further PRINT, PLOT, DRAW or 
CIRCLE commands, or locally within these commands to cover 
only the results of that command. They may also be set locally to 
cover text printed by an INPUT statement. Colour-control codes, 
which may be accessed from the keyboard, may be inserted into 
text or program listing, and when displayed will override the 
globally set colours until another control code is encountered. 
Brightness and flashing codes may be inserted into program or 
text, similarly. Colour-control codes in a program listing have no 
effect on its execution. Border colour is set by a BORDER 
command. The eight colours available are black, blue, red, 
magenta, green, cyan, yellow and white. All eight colours may be 
present on the screen at once, with some areas flashing and others 
steady, and any area may be highlighted. 


Screen 

The screen is divided into two sections. The top section — normally 
the first 22 lines — displays the program listing or the results of 
program or command execution. The bottom section — normally 
the last 2 lines — shows the command or program line currently 
being entered, or the program line currently being edited. It also 
shows the report messages. Full editing facilities of cursor left 
cursor right, insert and delete (with auto-repeat facility) are 
available over this line. The bottom section will expand to accepta 
Current line of up to 22 lines. 


Mathematical Operations and Functions 

Arithmetic operations of +, —, xX, +, and raise to a power. 
Mathematical functions of sine, cosine, tangent and their inverses; 
natural logs and exponentials; sign function, absolute value 
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function, and integer function; square root function, random 
number generation, and pi. 

Numbers are stored as five bytes of floating point binary — giving 
a range of +3x10-°° to +7x 10% accurate to 91/2 decimal digits. 
Binary numbers may be entered directly with the BIN function. =, 
>, <, > =, < = and <> may be used to compare string or 
arithmetic values or variables to yield 0 (false) or 1 (true). Logical 
operators AND, OR and NOT yield boolean results but will accept 0 
(false) and any number (true). 

User-definable functions are defined using DEF FN, and called 
using FN. They may take up to 26 numeric and 26 string 
arguments, and may yield string or numeric results. 

There is a full DATA mechanism, using the commands READ, 
DATA and RESTORE. 


A real-time clock is obtainable. 


String Operations And Functions 

Strings can be concatenated with +. String variables or values may 
be compared with =, >, <, > =, < =, <> togive boolean results. 
String functions are VAL, VALS, STRS and LEN. CHR$ and CODE 
convert numbers to characters and vice versa, using the ASC11 
code. A string slicing mechanism exists, using the form a$ (x TO y). 


Variable Names 

Numeric — any string starting with a letter (upper and lower case 
are not distinguished between, and spaces are ignored). 

String — A$ to ZS 

FOR/NEXT loops — A-Z 

Numeric arrays — A-Z 

String arrays — AZ to ZS 

Simple variables and arrays with the same name are allowed and 
distinguished between. 


Arrays 

Arrays may be multi-dimensional, with subscripts starting at 1. 
String arrays, technically character arrays, may have their last 
subscript omitted, yielding a string. 
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Expression Evaluator 

A full expression evaluator is called during program execution 

whenever an expression, constant or variable is encountered. 
This allows the use of expressions as arguments to GO TO, GO 

SUB, etc. It also operates on commands allowing the ZX Spectrum 

to operate as a calculator. 


Cassette Interface 

A tone leader is recorded before the information to overcome the 
automatic recording level fluctuations of some tape recorders, and 
a Schmitt trigger is used to remove noise on playback. All saved 
information is started with a header containing information as to its 
type, title, length and address information. Program, screens, 
blocks of memory, string and character arrays may all be saved 
separately. Programs, blocks of memory and arrays may be 
verified after saving. Programs and arrays may be merged from 
tape to combine them with the existing contents of memory. 
Where two line numbers or variables names coincide, the old one 
is overwritten. Programs may be saved with a line number, where 
execution will start immediately on loading. The cassette interface 
runs at 1500 baud, through two 3.5mm jack plugs. 


Expansion Port 

This has the full data, address and control busses from the Z80A, 
and is used to interface to the ZX Printer, the RS232 and NET 
interfaces and the ZX Microdrives. IN and OUT commands give the 
\/O port equivalents of PEEK and POKE. 


2X81 Compatibility 


ZX81 BASIC is essentially a subset of ZX Spectrum BASIC. The 
differences are as follows: 


FAST and SLOW: the ZX Spectrum operates at the speed of the 
ZX81 in FAST mode with the steady display of SLOW mode, and 
does not include these commands. 


SCROLL: the ZX Spectrum scrolls automatically, asking the 
operator “scroll?” every time a screen is filled. 
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UNPLOT: the ZX Spectrum can unplota pixel using PLOT OVER, 
and thus achieves unplot. 


Character set: the ZX Spectrum uses the ASC11 character set, 
as opposed to the ZX81 non-standard set. 


